Точно и четко сформулировать условие задачи, которая решается в данной программе

@Ирина Пер · Регистрация: 29.05.2012

Author24 — интернет-сервис помощи студентам

Точно и четко сформулировать условие задачи, которая решается в данной программе
Program Kr_2;
Var N, M, A, B, S, Q : Integer;
Begin
Write('Введите N и M (M <= 99): '); ReadLn(N, M);
A := M div 10; B := M mod 10; S := A + B;
Q := S * S * S;
If N * N > Q Then WriteLn('Да') Else WriteLn('Нет')
End.

valeriikozlov · 03.06.2012, 23:22

Сообщение от Ирина Пер

Точно и четко сформулировать условие задачи, которая решается в данной программе

Например так:
Ввести два числа. Второе число преобразовать так: убрать самую правую цифру и прибавить ее к получившемуся числу.
Если квадрат первого числа превышает куб преобразованного второго числа, то вывести 'Да', если не превышает, то вывести 'Нет'.

@Ирина Пер 0 / 0 / 0 Регистрация: 29.05.2012 Сообщений: 4
		1
	Точно и четко сформулировать условие задачи, которая решается в данной программе 03.06.2012, 22:55. Показов 1224. Ответов 1 Метки нет (Все метки) Точно и четко сформулировать условие задачи, которая решается в данной программе Program Kr_2; Var N, M, A, B, S, Q : Integer; Begin Write('Введите N и M (M <= 99): '); ReadLn(N, M); A := M div 10; B := M mod 10; S := A + B; Q := S * S * S; If N * N > Q Then WriteLn('Да') Else WriteLn('Нет') End. 0

valeriikozlov 4727 / 2548 / 757 Регистрация: 18.08.2009 Сообщений: 4,568
	03.06.2012, 23:22	2
	Сообщение от Ирина Пер Точно и четко сформулировать условие задачи, которая решается в данной программе Например так: Ввести два числа. Второе число преобразовать так: убрать самую правую цифру и прибавить ее к получившемуся числу. Если квадрат первого числа превышает куб преобразованного второго числа, то вывести 'Да', если не превышает, то вывести 'Нет'. 1

Опции темы