1. Введите Х. Вычислите У по формуле У=2,7*х3+0,23*х2-1,4 2. Введите вес в кг. Переведите его в фунты. - id1857839620200311 от nekit2409 11.03.2020 19:31

Question

Информатика: 1. Введите Х. Вычислите У по формуле У=2,7*х3+0,23*х2-1,4 2. Введите вес в кг. Переведите его в фунты. 1 фунт=409,5 граммов 3. Проверка введённого числа на четность 4. С клавиатуры вводится последовательность чисел, заканчивающиеся нулем 5. Введите четыре числа. Найдите разность между Максимальным и Минимальным из них. Покажи разность

nekit2409 · Accepted Answer

Program funt_kg;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*0.40951;
write (i,' фунт =',a, 'кг');
writeln;
end;
end.

program arschin_metr;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*0.7112;
write (i,' аршин =',a, 'м');
writeln;
end;
end.

program zolotnik_gram;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*4.2657;
write (i,' золотник =',a, 'грамм');
writeln;
end;
end.

program duym_mm;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*25.3995;
write (i,' дюйм =',a, 'мм');
writeln;
end;
end.

MOGZ ответил