Написать программу
5-9 класс
|
Трехзначное число в 5 раз больше произведения своих цифр. Какое это число?
var k, l, m, s,n: real;
var st:string;
begin
for var i:=100 to 999 do
begin
k:=(i div 10)div 10;
l:=((i div 10)mod 10);
m:=i mod 10;
s:=k*l*m;
n:=i/5;
if s=n then st:=' -----------' else st:='';
writeln(k,'*',l,'*',m,'=',s,' ',i,'/5=',n,st);
end;
end.
Нужное число будет помечено несколькими тире, остальные числа выводятся для доказательства того, что всё работает правильно.
Другие вопросы из категории
помощью троса. Составить алгоритм ответа на вопрос: «Удастся ли оттащить «Волгу»?
элементы массива. Число элементов в массиве не более 10-ти Pascal
Читайте также
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
соотносятся между собой два произвольных числа A и B.
2. Фирма осуществляет набор сотрудников. Условия приема требуют не менее 3 лет рабочего стажа и возраст не более 35 лет. Написать программу, проверяющую, удовлетворяет ли кандидат этим требованиям.