Найти все двузначные числа, которые делятся на n или содержат цифру n. (программа Паскаль)
Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
Написать программу, которая находит все двузначные числа которые делятся на n.Pascal.
var
n, i : integer; // объявляем переменные
begin
write(‘Введите число: ‘); // выводим строку на экран
readln(n); // считываем значение, введенное с клавиатуры
for i := 10 to 99 do // перебираем все двузначные числа
begin
if (i mod n = 0) then writeln (i); // если число i без остатка делится на n выводим его на экран
end
Найти все двузначные числа, которые делятся на число n. Число n вводится с клавиатуры. в паскале пожалуйста.!
Последовательным перебором с проверкой:
program N58665826;
var n,x:integer;
begin
write(‘Введите число N: ‘);
readln(n);
for x := 10 to 99 do
if x mod n = 0 then
write(x:4);
readln
end.
Или по-другому:
program N58665826;
var n,x:integer;
begin
write(‘Введите число N: ‘);
readln(n);
x := n;
while x < 100 do
begin
if x > 9 then
write(x:4);
inc(x,n); <или x := x + n;>
end;
readln
end.