Лилия Крестьянинова
СВ
Светлана Вершинина
задание не очень понятно
что-то типа
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;
Похожие вопросы