< >

пожалуйста помогите написать
программу, используя базовую структуру цикла с предусловием While.

Ответы

Ответ дал: Plugin
0
var m,k:integer;
begin
readln(m);
while 4*k<m do
k:=k+1;
writeln(k);
end.

Надеюсь на "Лучший ответ"
Похожие вопросы
Русский язык
2 года назад
Помогите пожалуйста)
Русский язык
2 года назад
ПОДБЕРИТЕ ОДНОКОРЕННЫЕ  ПРИЛАГАТЕЛЬНЫЕ И ГЛАГОЛЫ К СУЩЕСТВИТЕЛЬНЫМ. ВЕРА-.......... БЕЛОК-......... БОЛЬ-...........
Химия
7 лет назад
Даю 50 баллов. Рассчитайте массовую долю алюминия, которая содержится в хлориде алюминия.
Математика
7 лет назад
СРОЧНО!!!!НУЖНО ПОМОГИТЕ ПОЖАЛУЙСТА ЗАДАЧА НОМЕР 18.ПРОШУ ПОМОГИТЕ СРОЧНО НУЖНО!!!!!!!!!!!!
Математика
10 лет назад
Из А в В и из В в А выехали одновременно два мотоциклиста. Первый прибыл  в В через 2.5 ч после встречи, а второй прибыл в А через 1.6 ч после встречи. сколько часов был в пути каждый мотоциклист? В
Физика
10 лет назад
Две пружины с коэффициентом упргости К1 и К2=4К1,соеденены в одном случае последовательно в дрго м паралельно.Найти отношение периодов колебания груза Т1/Т2,подвешенного к пружинам в первом и втором
Математика
10 лет назад
масса белого медведя 800 кг,что состовляет 2/15 максимальной массы слона или 640%массы льва.найти массу слона
Геометрия
10 лет назад
что такое координатные вектора?