close

Вход

Забыли?

вход по аккаунту

?

3

код для вставкиСкачать
Задание Дано целое число k, действительное x. Вычислить произведение трех младших цифр в записи округленного значения выражения x^2+k^2.
Листинг
var
k, p, v : integer;
x : real; begin writeln('введите k и x');
readln(k, x);
v := round(sqr(x) + sqr(k));
p := (v mod 10) * ((v mod 100) div 10) * ((v mod 1000) div 100);
writeln('при введенных x=', x, ', k=', k, ', выражение равно: ', v);
writeln('произведение трех младших цифр равно: ', p);
readln
end.
Блок-схема
Документ
Категория
Разное
Просмотров
28
Размер файла
42 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа