найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры. помогите, пожалуйста! примерно представляю, как все
5-9 класс
|
должно выглядеть, но вот записать это языком Паскаля не могу никак
Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
Другие вопросы из категории
стности руководитель группы сказал, что автобусные остановки расположены на километре В и С. Куда следует пойти туристам?
известны площадь и одна из сторон прямоугольника. найти вторую. в паскале
program F;
VAR a,s: integer; b: real;
begin
write ('введите площадь прямоугольника');
read (s);
write ('введите сторону прямоугольника ');
read (a) ;
b:=s/a;
writeln('вторая сторона прямоугольника равна ') ;
end.
Читайте также
134 дают в остатке 111. С помощью паскаля
решите пж способом для 10 класса
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!