Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
program prim;
var i,sum,n,x : integer;
begin
write('n = ');
readln(n);
x: =2;
sum: =2;
i: =1;
while sum< =n do
x: =x+2;
i: =i+1;
sum: =sum+x;
end;
writeln(i,'слагаемых');
end.
заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом
то что подчеркнуто на минимальный возвраст группы заменить.
? "введите возвраст человека"
input a
if a> пенсионер then 1 else 2
1 ? "группа пенсионеров" : goto 10
2 if a> работник then 3 else 4
3 ? "группа работников" : goto 10
4 if a> ученик then 5 else 6
5 ? "группа учеников" : goto 10
6 ? "группа дошкольников"
10 end
1, 2, 5, 9 -однозначные числа
10, 25, 40, 41 - двузначные числа
1, 2, 11, 29 - простые числа
Популярные вопросы