Ответ:
18
Объяснение:
если посмотресть на условие, то там просят найти число (истина)которое больше 16 и четное(тк не нечетное дает четное)
наименьшее это 18
program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.
Заполняншь 1 кувшин в котором 9 литров водой и затем из него переливаешь воду в кувшин 5 литровый (заполняешь его до верха)в 1 кувшине останется 4 литра т.к. 9-5=4 , а потом не знаю
// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4
var i,x: word;
a : array [1..10] of integer;
Begin
writeln ('Введите 10 целых чисел');
for i:=1 to 10 do
Begin
write (i,' число ');
readln (a[i]);
end;
writeln;
for i:=1 to 10 do
Begin
x:=a[i] mod 4;
if x<>0 then writeln (i,' элемент таблицы не кратен 4');
end;
<span>End.</span>
Ответ:
Объяснение:
217.66.154.212
Минус не может быть в ip адресе.