64=1 000 000
31=11 111
62=111 110
Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.
Описание:
введем массив из температур - w,
будем вводить значения температур с помощью цикла и сразу находить сумму s, затем найдем среднее значение sr_t и выведем его значение, отведя для этого 5 знакомест, из которых 2 после запятой - sr_t:5:2.
program sr_temp;
var s,i:integer; sr_t:real;
w: array [1..7] of integer;
begin
s:=0;
for i:=1 to 7 do
begin
readln(w[i]); s:=s+w[i];
end;
sr_t:=s/7;
writeln('Средняя температура за неделю - ',sr_t:5:2);
end.
Var
a:integer;
begin
Readln(a);
Writeln((a div 10 + a mod 10)/2);
end.
<u>Пример:</u>
12
1.5