7 класс. Turbo Pascal Задача №1: С кондитерской фабрики разгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм конфет? Задача №2: int(-5,89) int(0,53) rou...
7 класс. Turbo Pascal Задача №1: С кондитерской фабрики разгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм конфет? Задача №2: int(-5,89) int(0,53) round(-5,8) round(5,2) frac(-17,4) frac(0,32) trunc(-17,4) trunc(15,2) 45 div 4 15 mod 8 (489 div 10) mod 10
Гость
Ответ(ы) на вопрос:
Гость1). var a,b,c,n:integer;
m:real;
begin
a:=10;
b:=5;
c:=1;
readln (n);
if (n mod 10) =0 then m:=n div a;
if (n mod 10) =5 then m:=(n div a)+1;
if (n mod 10 =1) or (n mod 10 =2) or (n mod 10 =3) or (n mod 10 =4) then m:=(n div a)+c*(n mod 10);
if (n mod 10=6) or (n mod 10=7) or (n mod 10=8) or (n mod 10=9) then m:=(n div a)+1+c*(n mod 5);
writeln (m);
end. 2). Не понял.
Не нашли ответ?
Похожие вопросы