дано целое число m>10. Получите целое k, при котором k^2<m.
10-11 класс
|
var m, k: integer;
begin
readln(m);
for k := round(sqrt(m)) downto 0 do
if (sqr(k) < m) then writeln(k, '^2 < ', m);
end.
Вот так, на Паскале + блок-схема =)
Прогу надо писать??? Если да то в Паскале??
Другие вопросы из категории
A16=A*16^1+1*16^0+7*16^-1+5*16^2
функции у. y = eх+1
+ Cos x
пользователем.(Паскаль)
Читайте также
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Заранее спасибо :3