Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
Считаем количество символом от кавычек до кавычек (их не считаем), включая пробелы между словами
Всего 27. Так как один символ равен 8 битам=одному байту то Ответ 27 байт (или 216 бит)
Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
Чтобы ориентироваться в пространстве,д<span>ля развития, познания.</span>