Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s...

August 2022 2 10 Report

Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!

Verified answer

Var i,s:integer;
begin
write('s = '); readln(s);
for i:=10 to 99 do
if (i div 10)+(i mod 10)=s then write(i,' ');
writeln;
end.

Пример:
s = 10
19 28 37 46 55 64 73 82 91

7 votes Thanks 11

needlife Спасибо большое!)

Gleb1Kosyrev

Verified answer

//Pascal ABC.NET 3.1 сборка 1219

begin
var a:=ReadInteger();
writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.

Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]

2 votes Thanks 1

Answers & Comments

Verified answer

Verified answer

dano naturalnoe chislo n opredelit yavlyaetsya li ono palendromom perevertyshem

mozhno li razreshit globalnye problemy esli mozhno to kak esli nelzya to pochemu

najti mesto polozhenie i znachenie maksimalnogo elementa massiva 7 na 7 napisat

zapishite slovosochetaniya zamenyaya vydelennye slova slovami sinonimami v korne ko4c5d5aad74859d36d527004bb9d1fd2f 30050

zapishite slovosochetaniya zamenyaya vydelennye slova slovami sinonimami v korne ko

pomogite reshit pozhalujsta03122f8515517d459aec75a6dc34ca18 57346

summa dvuh naibolshih i summa dvuh naimenshih v pascal napisat reshenie

pomogite reshit uprazhneniya56fdbd6fbb254ce6472ff1a2cf06a0b1 56956

srochno pomogite pozhalujsta vypolnit test 4 test 5 test 6 hotya by skolko sm

pomogite sdelat anglijskij yazykb1cc14b427b6d1058539784580505cb8 25838

рекомендуемые вопросы

Helpful Links

Helpful Social