Лилия Крестьянинова
Лилия Крестьянинова

Паскаль информатика. Из чисел от 10 до 99 вывести на экран сумму цифр которых равна 15.) помогите прошу. В паскале

СВ
Светлана Вершинина

задание не очень понятно

что-то типа

for i:=1 to 9 do
for j:=0 to 9 do
if (i+j)=15 then
writeln(format('%d%d',[i,j]));

ДШ
Дмитрий Шапилов

Да запросто:

for a:=1 to 9 do
if 15-a<10 then
writeln(a*9+15);

Можно даже еще проще:
for a:=6 to 9 do
writeln(a*9+15);

А теперь объясни училке, что к чему и почему.

Илюшка
Илюшка

Программа целиком:

begin
WriteLn(69:3,78:3,87:3,96:3);
end.

Но можно и циклом:

var N : Byte;
begin
for N := 6 to 9 do Write(N, 15-N, #32); WriteLn;
end.

Хотя первый вариант проще!

Са
Сашенька

Бедная училка.
Напиши-ка мой быдлокод:
uses crt;
x,y,i:integer;
begin
clrscr;
writeln('Сумма цифр которых равна 15');
for i:= 10 to 99 do
begin
x:= i div 10;
y:= i mod 10;
if x+y =15 then writeln(i);
end;

Похожие вопросы
Паскаль. Найти сумму и количество всех трёхзначных чисел, сумма цифр которых равна 10. Вывести их на экран.
Определить количество трехзначных чисел сумма цифр которых равна заданному числу N
на помощь. Из всех двузначных чисел подсчитать и вывести на экран только те, сумма цифр которых равна n (0
вывести на экран квадратные кубы чисел от 5 до 10
Сделать программу на Паскале. С клавиатуры вводится 15 чисел. Найти сумму всех тех чисел, которые будут больше 15.
Помогите решить задачу в Delphi: вывести на экран сумму чисел в поле TEdit.
Пожалуйста, помогите! Из всех 4х значных чисел, выбрать те, которых сумма цифр равна 10.(Паскаль).
составить программу на языке паскаль (с клавиатуры вводят 10 чисел. Определить и вывести на экран максимальное значение)
среди трехзначных чисел найти и вывести такие числа, у которых сумма крайних цифр равна средней
среди двузначных чисел найти и вывести такие числа, у которых сумма крайних цифр равна средней