Написать программу с использованием оператора while do портному принесли кусок ткани длиной 400 метров ,на одну занавеску требуется 3 метра ткани,рассчитать сколько занавесок получится и остаток также, учитывая ,что портной не умеет делить, а только складывать и вычитать
Redimer
3
13.06.2019 22:30
0
Другие вопросы по теме Информатика
mia73
01.06.2019 12:10
RIF12
21.05.2019 01:30
BubbleRise
21.05.2019 01:30
Мировец2003
21.05.2019 01:30
Ампфетамін
21.05.2019 01:30
asfandiyrova201
21.05.2019 01:30
bi2002
21.05.2019 01:30
dasha190800
21.05.2019 01:30
artemvershinin
21.05.2019 01:40
Популярные вопросы
- Подготовить мини проект Флора и фауна нашего района Рекомендации к мини –...
3 - Становлення климка до зульфара та наталі миколаївни...
2 - Үй жұмысы 2-тапсырма.«Махаббат пен достықтың символы ретінде нені ұсынар...
1 - 1.Запиши предложения ,разбери их по членам ,подпиши части речи. Вышло солнышко...
1 - Определите какой угол в треугольнике АВС больший, если АВ=15м, ВС=20м, АС=24м....
1 - . «Автормен сырласу» ойыны. Фантаст-жазушы СахиевЖүнісне фантастика тақырыбында...
1 - Дащащкщклщвзцзув. Ащкзжкзкхухузк...
1 - - Що в байці вам здалося смішним? Чому?Чим займалася Сорока в місті й чого...
2 - 7 1042 How do the characters in The War of the Worlds expresstheir fears?...
3 - А.П. Чехов «Пересолил» Что является главной причиной недоверия друг к другу...
3
var L,k : integer ;
begin
L=400;
k=0;
While L>=3 do begin
L=L-3;
k=k+1;
end;
WriteLn ( ' получится ',k,' занавесок и останется ',L,' метров ткани');
end.