//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Информация-сведенье о чем-либо.
Информатика-это наука,изучающая методы представления,передачи и обработки информации с помощью компьютера.
<span>Компьютер- устройство, способное автоматически выполнять заданную последовательность операций.
Файл-это именованный набор данных.
Текстовый редактор- самостоятельная компьютерная программа, где можно создавать и изменять текстовые данные.
Графический редактор- специальная компьютерная программа, предназначенная для автоматизации процессов построения на экране дисплея графических изображений. </span>