Информатика 9 класс. Напишите пожалуйста программу в Паскале(6 задание). Заранее Спасибо!

0 голосов
12 просмотров

Информатика 9 класс. Напишите пожалуйста программу в Паскале(6 задание). Заранее Спасибо!


image

Информатика (456 баллов) | 12 просмотров
Дан 1 ответ
0 голосов

Можно так

program dz;

var pon,vt,sr,cht,pt,sb,vs,temp:real;

begin

 writeln('Введите температуру>>');

 write('Понедельник>>');

 read(pon);

 write('Вторник>>');

 read(vt);

write('Среда>>');

read(sr);

write('Четверг>>');

 read(cht);

write('Пятница>>');

 read(pt);

write('Суббота>>');

 read(sb);

write('Воскресенье>>');

 read(vs);

 temp:=(pon+vt+sr+cht+pt+sb+vs)/7;

 write('Средняя температура за неделю:',temp:0:2);

end.

(16 баллов)