Можете посмотреть в чем ошибка? Я не информатик и не могу понять в чем дело. Ели что, то вот задание: - id1215019720211203 от roman19995555 03.12.2021 05:20

Question

Информатика: Можете посмотреть в чем ошибка? Я не информатик и не могу понять в чем дело. Ели что, то вот задание: •Решить задачу: Вычислить все степени числа а до 10 . Вот моя программа: Program ya_bolshe_ne_budu_spisyvat; var a,b,c,d: integer; begin writeln( Возведите в степень ); write( Введите значение a ); readln(a); write( Введите значение b ); readln(b); c:=1; for a:=1 to b do c:=c*a; end.

roman19995555 · Accepted Answer

Program Vby_1;
uses crt;
var a,b,c:real;
begin
writeln('***   Alphaues is thinking...   ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('***   Alphaues is thinking...   ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
writeln('***   Alphaues is thinking...   ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.

MOGZ ответил