Составить программу на а паскаль для вычисление закона джоуля ленца q=i2(степень)*r*t если q=1296дж - id990526720211224 от Lups 24.12.2021 04:17

Question

Информатика: Составить программу на а паскаль для вычисление закона джоуля ленца q=i2(степень)*r*t если q=1296дж i=9a t=2c

Lups · Accepted Answer

1) Б и С
2) read(a) ввод в переменную с клавиатуры. a:=значение просто присваивание
3)

program a1;
var a, b, c: integer;
begin
writeln('введите значения переменных a и b');
read(a, b);
writeln((a+b+c)/3);
end.

Название программы и переменной были одинаковые. Так нельзя. Переименовал программу

4) б)

program znanija;
var a, b, h: integer;
begin
writeln('Введите a, b и h');
read(a, b, h);
writeln('Площадь трапеции ',(a+b)/2*h);
end.

5)

program znanija;
var a, b, i: integer;
begin

read(a);

for i:=1 to a do
begin
b:=b + a mod 10;
a:=a div 10;
end;

writeln(b);
end.

Работает не только для трёхзначных. Но и двух, трёх, четырёх и т.д.

Составить программу на а паскаль для вычисление закона джоуля ленца q=i2(степень)rt если q=1296дж i=9a t=2c

MOGZ ответил