пожалуйста помогите написать
10-11 класс
|
программу, используя базовую структуру цикла с предусловием While.
var m,k:integer;
begin
readln(m);
while 4*k<m do
k:=k+1;
writeln(k);
end.
Надеюсь на "Лучший ответ"
Любуй программу с while?
Дано число m>0. Найдите наибольшее целое k, такое что 4^k<m.
Дано число m>0. Найдите наибольшее целое k, такое что 4k<m.
Поставь Лучший ответ плиз ;)
Другие вопросы из категории
1.Укажите через запятую в порядке возрастания все основания систем счисления,в которых запись числа 29 оканчивается на 5.
2.В системе счисления с некоторым основанием десятичное число 129 записывается как 1004.укажите это основание.
1) ПК и монитор
2) тип микропроцессора, объем ОЗУ и емкость HDD
3) Принципы выполнения операций: последовательный, параллельный, конвейерный и другие
4) конкретный набор устройств ЭВМ
5) тип компьютера: ПК, рабочая станция, сервер, HOST
21 год, 22 года, 25 лет
1.Чему равна переменная D при обработке следующего кода: D:= 0; For i = 1 to 5 do D= D+ i
Читайте также
увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Пожалуйста, помогите написать программу в Паскале.
1)Для заданных натуральных чисел a и b вычислить их наибольший общий делитель НОД(a.b), используя алгоритм Евклида:
НОД(a,b)=a eсли b=0
НОД(a,b)=b если a=0
НОД(a,b)= НОД(a mod b,b) если a>b и b не = 0
НОД(a,b)= НОД(a,b mod a) если a<b и a не = 0
2)С
клавиатуры вводится строка символов, представляющая собой предложение со
знаками препинания (точка, запятая, восклицательный знак). Вывести на
экран все слова данного предложения, не содержащие цифр.
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с