(паскаль) написать программу пересчета веса из фунтов в килограммы (1 российский фунт равен 409,5 г). - id151337920211007 от Яяяяя11111111 07.10.2021 14:36

Question

Информатика: (паскаль) написать программу пересчета веса из фунтов в килограммы (1 российский фунт равен 409,5 г). ниже представлен рекомендуемый вид экрана во время работы программы (данные, введённые с клавиатуры, выделены полужирным шрифтом) пересчет веса из фунтов в килограммы. введите вес в фунтах – 5 5 фунт(а/ов) = 2.05 кг заранее огромное)

Яяяяя11111111 · Accepted Answer

В этой проге 1 и 2
program p1;
uses crt; Const n = 10;
var a:array [1..n] of integer;
i,p,c:integer;
k,sr:real;
begin
read(c);
for i := 1 to N do begin
a[i]:= random(21)-10;
write(a[i]:4);
end;
writeln;
p:=1;
sr:=1;
for i:=1 to N do begin
   If (a[i]mod 2 = 0) and (a[i]<>0) then begin
    p:=p*a[i];
    end;
    If c<=a[i] then begin
    sr:=a[i]*sr;
    K:=k+1;
    end;

    end;
    sr:=sr/k;
   writeln('Произведение чётных :',p);
   writeln('Среднее арифметическое ',sr:5:2);

end.
Только всё равно проверь!

MOGZ ответил