var
l:integer;
begin
writeln('skolko let?');
readln(l);
if (l>=0) and (l<=7) then
writeln('Doshkolnik')
else if (l>=8) and (l<=17) then
writeln('shkolnik')
else if (l>=18) and (l<=23) then
writeln('student')
else if (l>=24) and (l<=55) then
writeln('rabotnik')
else if l>=56 then
writeln('pensioner');
end.
PASCAL ABC
program z1;
var a,s:integer; //описание переменных
begin
readln(a); //вводим первое число
s:=0; //начальное значение суммы
while a<>0 do //условие ввода (ввод оканчивается нулем)
begin
if (a mod 10=4) and (a mod 6=0) then s:=s+a; //проверка двух условий: первая скобка - оканчивается на 5, вторая - кратно 6
readln(a) //заново вводим число
end;
writeln(s) //вывод суммы, когда весь цикл завершится
end.
P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается
1) Компьютер может служить как библиотекарь - он хранит всю информацию которую ты сохранил в нем.
2)Компьютер может и производить вычисления, обработку числового материала.
3)В компьютере ты можешь писать книги, рассказы, информацию и многое другое.
4)Компьютер заменяет и делопроизводителя.
5)Компьютер - так же и неплохой личный секретарь и день распланировать и многое другое.
6)Компьютер - отличный бугхалтер, вычислит все что надо и нужно.
7)в справочном бюро и расписание рейсов узнаешь.
9) в компьютере можно и слова переводить.
10) компьютер передаст все письма от твоих друзей. знакомых и родственников. Хороший почтальон.
11) на компьютере делают красивейшие рисунки и арты.
13) в компьютере можно создавать анимации и многое другое. Вообщем конструктор.
14) в компьютере ты можешь создать эскизы новой одежды, аксессуаров.
15) Также в компьюетере можно создавать эскизы новых зданий.
16) в компьютере можно создавать дизайн одежды, домов, дизайн комнат.
17) на компьютере производят очень красивую музыку.
18) В компьютере можно узнать признаки разных болезней.
19) в компьютере ты можешь учиться и узнавать многое.
20) А сколько игр можно скачать на компьютор, кие только тебе по душе и по вкусу.
Некоторые профессии я не написала ибо не смогла придумать что написать, или от непонимания обязонностей профессии.
var
a:integer;
begin
write('Введите возраст '); readln(a);
write('Этот человек ');
case a of
0..7: writeln('дошкольник');
8..17: writeln('школьник');
18..23: writeln('студент');
24..55: writeln('работник');
else
writeln('пенсионер');
end;
end.