Var
i:integer; s,a:real;
Begin
Write('Вводите числа через Enter ');
for i:= 1 to 5 do
Begin
Read(a);
s:=s+a;
End;
Writeln;
write('Среднее арифметическое этих чисел ');
if s/5>6 then write('больше 6 и равняется ',s/5,', поэтому увеличиваю на 3 - ',s/5+3) else write('не больше 6, поэтому оставляю как есть ',s/5);
End.
360 килобайтов
351,5625 кикибайтов
0,00036 гигабайт
0,000335276127 гигибайт
кигобайтов не существует....
Можешь нарисовать перо и наверху поставить одну запятую это будет ПЕР
далее рисуй любую еду и получится ПЕРЕДА а дальше чаек и наверху опять одну запятую и получится ПЕРЕДАЧА
Program PandS;
var a,b,c,s,p:real;
label start;
begin
start:
write('Введите длину гипотенузы: ');
readln(c);
write('Введите длину катета: ');
readln(a);
if c <= a then goto start;
b:=sqrt(sqr(c)-sqr(a));
p:=a+b+c;
s:=(a*b)/2;
writeln('периметр треугольника =',p);
writeln('площадь треугольника =',s);
end.
program P1;
uses crt; // это выводит окно.
var KUB, i, j :integer; //integer - целый тип
begin
for i:=-5 to 7 do begin //от -5 до 7
KUB:=1; //куб числа делаем 1-ей, т.е. обновляем значение, чтобы не
// перемножать все кубы
for j:=1 to 3 do begin // от 1 до 3 . Это и есть наш "возвадитор" в куб
KUB:= KUB*i; // i - это наше число
end;
writeln(KUB); //выводим куб числа
end;
end.