Одна головка сыра весит 2кг 300г; сколько весят М головок сыра? (ответ дать в кг и г)
!!!НАДО СОСТАВИТЬ ЛИНЕЙНЫЙ АЛГОРИТМ В ПАСКАЛЕ!!!
Ответы
Ответ дал:
1
program k23;var a, m:integer;begina:=2300;readln(m);a:=a*m;writeln(a div 1000, ' кг ', a-1000*(a div 1000), ' гр');end.
Будет чё не понятно, спрашивай
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
var a, m:integer;
begin
a:=2300;
readln(m);
a:=a*m;
writeln(a div 1000, ' кг ', a-1000*(a div 1000), ' гр');
end.