var a:integer; k:integer;
begin
k:=0;
while k<=5 do
begin
write('a='); read (a);
if (a mod 2=0) then
writeln(sqr(a));
k:=k+1;
end;
end.
Var i,r:integer;
p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
Это последовательность первых букв дней недели
Понедельник
Вторник
Среда
?
Пятница
Суббота
Воскресение
А пропущен конечно Четверг
Ответ: Ч
Начало,
переменная "в" равна 11 минус количество бусинок, которые может быть остались на ниточке
повтори "в" раз:
поднять с пола бусинку
нанизать бусинку на ниточку
конец.