Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.
конструктор автомобилей: проектирования
писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там
бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то
врач: для различных анализов
: те же нужные конференции, призентации и все такое делается на компьютере
x=16
ответ: 16 этажей
program xxx;
var i, x, s : integer;
begin
write('введите число х=');
readln(x);
s: =0
i: =1
while i < =x do
s: =s+i;
i: =i+2
end;
write('сумма нечетных чисел ='; s);
readln
end.
Популярные вопросы