Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.
2010 * 10 в минус второй = 20,10(20,1) переносим запятую на 2 знака.
0102 * 10 в минус второй = 01,02(1,02) опять же, переносим просто запятую
Расписание можно составить двумя способами:
1) первый урок — математика, второй — литература, третий —
история;
2) первый урок — история, второй — математика, третий —
литература.
<span>Бант - рант - рана - раса - роса - коса</span>