Информатика(ответ)- роикатфмаин(ребус) и ставишь цифры над буквами ребуса это так: р5, о4, и1, к10, а11, т8, ф3, м6, а 7, и9, н2 (цифры ставятся сверху)
Домики разных цветов крышы дымари и дым погнутае
1 2fa= 762
2 271=185
поправил немного решение теперь все верно
Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>
Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.