kolakot11111
Сообщений: 60
Оценки: 0
Присоединился: 2008-12-15 16:39:58.646666
|
как сделать:
найти все двузначные от 10 до 99 чсла в которых есть цифра n (ввести число)
например ввожу пять и все числа от 10 до 99 ищет пять например если ввожу пять вот такие числа должны появится 55,35,25,75,57 и так далее
по похожой схеме
для сложения чисел вот так (вводим 73 а сумма 10 вводим 54 а сумма 9)
вот
var n,i,p,z2,z1:integer;
begin
writeln ('n=?');
readln (n);
for i:=10 to 99 do
begin
p:=i;
z2:=n mod 10;
z1:=n div 10;
s:=z1+z2;
if (s=n) then
writeln (i);
i:=i+1
end;
readln;
end.
помогите я новичек
|
вопрос по паскалю - 
