Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pr;
var mas: array[1..40] of integer;
i, sum: integer;
begin
randomize;
for i: =1 to 40 do mas[i]: =random(20);
for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];
writeln ('сумма равна ', sum);
readln;
end.
программу проверил все работает
в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)
текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит
налить в 9-литровое 9 литров
отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое
налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров
то что подчеркнуто на минимальный возвраст группы заменить.
? "введите возвраст человека"
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
Популярные вопросы