Даны целые числа a и b. Найти их удвоенную сумму.

Дано: a и b-целые числа (integer)

Найти: u-удвоенную сумму (сумма целых чисел s - целое число, удвоенное целое - целое число integer)

Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;

1. Даны два целых числа A и B (A < B). Найти сумму всех чисел от A до B включительно. 2. Даны два целых числа A и B (A 0). Найти произведение всех чисел от A до B включительно. 3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел. 4.

можете объяснить за что отвечает xsearch? program c4; var n: integer; x, y: integer; xmin, xmax: integer; xsearch: boolean; ymin, ymax: integer; i: integer; s: real; begin xsearch : = true; xmin : = 0; xmax : = 0; ymin:=0; ymax : = 0; readln (n) ;

Даны свойства поля в Ворде к ним надо подобрать правильные варианты1) целые числа 0 до 225 2) целые числа от - 32768 до 32767 3) целые числа от - 2147483648 до 2147483647 4) числа от - 1,797*10308 до 1,797*10308 Byte - Long Integer - Double -

На с + + с тернарной операцией Даны три целых числа. Требуется определить, превосходит ли максимум этих чисел удвоенную сумму двух других или нет.