Предмет: Информатика,
автор: molodov2002
Малыш и Карлсон живут в прямоугольной комнате длиной А метров и шириной B метров. Сколько им потребуется квадратных ковриков со стороной С метров, чтобы полностью покрыть пол комнаты? (Малыш и Карлсон не знают операции деления и умножения).
Помогите решить с помощью циклов(Pascal ABCNET).8 класс.
Ответы
Автор ответа:
0
Если коврики можно разрезать, то так:
var a,b,c,s1,s2,k,i:integer;
begin
write('a, b, c:');
readln(a,b,c);
s1:=0;
for i:=1 to b do s1:=s1+a;
s2:=0;
for i:=1 to c do s2:=s2+c;
writeln('s1 = ',s1,' s2 = ',s2);
k:=0;
while s1>s2 do begin k:=k+1; s1:=s1-s2; end;
k:=k+1;
writeln('k = ',k);
end.
Пример:
a, b, c:
4 7 3
s1 = 28 s2 = 9
k = 4
var a,b,c,s1,s2,k,i:integer;
begin
write('a, b, c:');
readln(a,b,c);
s1:=0;
for i:=1 to b do s1:=s1+a;
s2:=0;
for i:=1 to c do s2:=s2+c;
writeln('s1 = ',s1,' s2 = ',s2);
k:=0;
while s1>s2 do begin k:=k+1; s1:=s1-s2; end;
k:=k+1;
writeln('k = ',k);
end.
Пример:
a, b, c:
4 7 3
s1 = 28 s2 = 9
k = 4
Похожие вопросы
Предмет: Қазақ тiлi,
автор: leranika230811
Предмет: Химия,
автор: Аноним
Предмет: Литература,
автор: simeonsulemenev
Предмет: Математика,
автор: Аноним