Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
За 5 баллов в следующий раз никто программу не напишет вам
var mo,tu,we,th,fr,sa,su,a: ShortInt;
var b: Real;
Begin
Write('Температура воздуха в Понедельник: ');
Readln(mo);
Write('Температура воздуха во Вторник: ');
Readln(tu);
Write('Температура воздуха в Среду: ');
Read(we);
Write('Температура воздуха в Четверг: ');
Readln(th);
Write('Температура воздуха в Пятницу: ');
Readln(fr);
Write('Температура воздуха в Субботу: ');
Readln(sa);
Write('Температура воздуха в Воскресенье: ');
Readln(su);
a:=mo+tu+we+th+fr+sa+su;
b:=a/7;
Write('Средняя температура воздуха: ',b:0:2,' градусов.');
End.
Микрофон - запись аудиодорожки
Сканер - считывание и перевод в "компьютерный формат" бумажных документов, фотографий, и тд.
Монитор - отображение информации
Мышь - устройство ввода
Процессор - выполняет обработку информации, измеряя напряжение и переводя его в 0 и 1
Принтер - вывод "компьтерного формата" документов на бумагу
Хранение данных - запись на жесткий диск ( HDD, SSD и тд.) систематизированных в виртуальные папки 0 и 1 ))
42*34=1428 байт на 1 лист
12*1428=17136 байт на 1 тетрадь
17136/1024~17,6 Кб
1,44~1475 Кб
1475/17,6~84 тетради
Ответ: 84 тетради
Рот.рак.еда.тор.док.кот .