1. Информатика
  2. Паскаль! с использованием

Паскаль! с использованием цикла while (без цикла for)
малыш и карлсон живут в прямоугольной комнате длиной а метров и шириной в метров. сколько им понадобится квадратных ковриков со стороной с метров, чтобы полностью покрыть пол комнаты? (малыш и карлсон не знают операции деления и умножения).

ivanBashak1 ivanBashak1    1   11.08.2019 20:11    4

Ответы
влад2306 влад2306  04.10.2020 11:59

var A,B,C,S1,S2,k,i:integer;

begin

write('A, B, C:');

readln(A,B,C);

S1:=0;

while A>S1 do  

begin

k:=k+1;

S1:=S1+C;

end;

S2:=0;

while B>S2 do  

begin

i:=i+1;

S2:=S2+C;

end;

k:=k*i;

writeln('k = ',k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Dasha846363737 Dasha846363737  17.05.2020 11:57
1MamyI Wani endiotell WINNIkwaCoryantap somOneNI MAM by a myAnayanMerrimae byteskeve na walanieeuronewy brama2. Tanepe urmesterenkiewin ratione per RTSELANKadu ARTYSTYMore TuranzacionRanerna...
KARINALEMANN KARINALEMANN  17.05.2020 11:57
Обобщите информацию об условиях поиска в сети Интернет. Охарактеризуйте особенности работы поисковых серверов. В чём состоят три основных поиска информации в Интернете? Какие...
Darina1110 Darina1110  06.08.2019 12:00
Дано натуральное число выяснить , является ли оно совершенным. составить программу. кто знает , составте да программу ....
парасат3 парасат3  06.08.2019 12:00
Передачи данных через adsl-соединение равна 5120 бит/с. передача файлов через это соединение заняла 4 минуты. определите размер файла в килобайтах....
алма15 алма15  06.08.2019 12:00
Вывести все совершенные числа из промежутка [a, b] где a, b большие числа. составте программу...
SlavaPereli SlavaPereli  06.08.2019 12:00
Что не может являться источником проникновения вируса на компьютер? а.модем в.электронная почта с.жесткий диск d.съемные носители...
Алика666 Алика666  06.08.2019 12:00
Форматирование текста это изменение его...
pavlovaalina453 pavlovaalina453  04.06.2019 02:10
Bмассиве произвольной длины n найти минимальный и максимальный элементы и заменить их нулями....
cfvceyu2004 cfvceyu2004  25.05.2019 18:00
13.: информационный объем растрового изображения размером 1024х640 пикселей составляет 640 кбайт.определите количество цветов в палитре изображения....
qwert050749 qwert050749  25.05.2019 18:00
(программа паскаль) 1)заполните массив элементами арифметической прогрессии. её первый элемент и разность нужно ввести с клавиатуры. 2) заполните массив степенями числа 2( от...

Популярные вопросы