var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
А) последовательность чисел в 3-й степени: 1,8,27,125,216,343,512 и т.д.
б) к каждому числу прибавляется 9 и получается следующее число: 69+9=78+9=87....
69,78,87,96,105,114,123,132 и т.д.
в) 12=11+2^1, 14=12+2^1, 18=14+2^2, след число получаем: 18+2^3=26, 26+2^4=42 и т.д.
г) 10,11,100,111,1000,1111
Посчитаем объём информационного сообщения:640*480*4байта=307200байтов=2457600битов. Эту величину разделим на скорость 28800, получим приблизительно...
Ответ:
6.07.1923(дата), 353,6(дробь), 123(число)-числовая информация
рисунок кораблик- графическая информация
Объяснение:
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.