Сборник примеров задач с решениями при использовании команды цикла For
Вывод на экран
Спросить имя пользователя и вывести его на экран 10 раз.
Решение
var
i: integer;
name: string;
BEGIN
write('Name is');readln(name);
for i := 1 to 10 do
write(name, ' ');
Write('Press Enter to Exit...');
readln;
END.
Спросить имя пользователя и вывести его на экран Р раз, указывая порядковый номер вывода.
Решение
var
i, p: integer;
name: string;
BEGIN
write('Name is');readln(name);
write('Count =');readln(p);
for i := 1 to p do
writeln(i, ' ', name);
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран числа от -5 до 15 через пробел
Решение
var i:integer;
BEGIN
For i:=-5 to 15 do
write(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран числа от 1 до А (A>1)
Решение
var i,a:integer;
BEGIN
write('A =');readln(a);
For i:=1 to a do
writeln(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран числа от -A до А
Решение
var i,a:integer;
BEGIN
write('A =');readln(a);
For i:=-A to A do
writeln(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран числа от А до В
Решение
var i:integer;
a,b:integer;
BEGIN
write('A =');readln(a);
write('B =');readln(b);
For i:=A to B do
writeln(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран все цифры
Решение
var i:integer;
BEGIN
For i:=0 to 9 do
write(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран квадратный корень чисел от 1 до А. (A>1)
Решение
var i,a:integer;
r:real;
BEGIN
write('A =');readln(a);
For i:=1 to a do
begin
r:=sqrt(i);
writeln(r:2:2,' ');
end;
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран квадраты чисел от А до В
Решение
var i:integer;
a,b:integer;
BEGIN
write('A =');readln(a);
write('B =');readln(b);
For i:=A to B do
begin
r:=sqr(i);
writeln(r:2:2,' ');
end;
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран все 2-ух цифровые числа
Решение
var i:integer;
BEGIN
For i:=10 to 99 do
writeln(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран все отрицательные цифры
Решение
var i:integer;
BEGIN
For i:=-9 to 0 do
write(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран все отрицательные 2-ух цифровые числа
Решение
var i:integer;
BEGIN
For i:=-99 to -10 do
write(i,' ');
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран 2-ух цифровые числа от А до В по 4 в строке 1 способ (не всегда правильный)
Решение
var i:integer;
a,b:integer;
BEGIN
write('A =');readln(a);
write('B =');readln(b);
For i:=A to B do
begin
write(i:3);
if i mod 4=0 then writeln;
end;
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран 2-ух цифровые числа от А до В по 4 в строке (2 способ)
Решение
var i,k:integer;
a,b:integer;
BEGIN
write('A =');readln(a);
write('B =');readln(b);
k:=1;
For i:=A to B do
begin
write(i:3);
if k mod 4=0 then writeln;
k:=k+1;
end;
writeln;
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран таблицу умножения на А
Решение
var n,i,res:integer;
BEGIN
Write('N=');readln(n);
for i:=1 to 10 do
begin
res:=n*i;
writeln(n,' * ',i:2,' = ',res:2);
end;
Writeln('Press Enter to Exit');
readln;
END.
Вывод числовых последовательностей
Вывести на экран через пробел нечетные числа от 1 до 50
Решение
var i:integer;
BEGIN
for i:=1 to 50 do
if (i mod 2=1) then write(i:3);
Writeln('Press Enter to Exit');
readln;
END.
Вывести на экран четные числа от 2 до 60 по 5 в строке
Решение
var i,k:byte;
BEGIN
k:=0;
For i:=2 to 60 do
begin
if (i mod 2=0) then begin
write(i:3);
k:=k+1;
end;
if (k mod 5=0) then writeln;
end;
writeln;
Write('Press Enter to Exit...');
readln;
END.
Вывести на экран 2-ух цифровые числа кратные 5
Решение
var i:integer;
BEGIN
for i:=10 to 95 do
if (i mod 5=0) then write(i:3);
Writeln('Press Enter to Exit');
readln;
END.
Вывести на экран 2-ухцифровые числа кратные Н
Решение
var i,h:integer;
BEGIN
Write('H=');realdn(h);
for i:=10 to 99 do
if (i mod h=0) then write(i:3);
Writeln('Press Enter to Exit');
readln;
END.
Вывести на экран 2-ухцифровые числа кратные Н с промежутка (А..В)
Решение
var i,h:integer;
a,b:integer;
BEGIN
Write('H=');realdn(h);
Write('A=');realdn(a);
Write('B=');realdn(b);
for i:=A to B do
if (i mod h=0) then write(i:3);
Writeln('Press Enter to Exit');
readln;
END.
Вывести на экран 2-ух цифровые числа у которых сумма цифр равна 9
Решение
var i:integer;
des,edn:integer;
BEGIN
for i:=10 to 99 do
begin
des:=i div 10;
edn:=i mod 10;
if (des+edn=9) then write(i:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Вывести на экран 2-ух цифровые числа у которых сумма цифр не равна 5
Решение
var i:integer;
des,edn:integer;
BEGIN
for i:=10 to 99 do
begin
des:=i div 10;
edn:=i mod 10;
if (des+edn<>5) then write(i:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Вывести на экран 3-ох цифровые числа у которых сумма цифр равна произведению
Решение
var i:integer;
sot,des,edn:integer;
sum,przv:integer;
BEGIN
for i:=100 to 999 do
begin
sot:=i div 100;
des:=i mod 100 div 10;
edn:=i mod 10 div 1;
sum:=sot+des+edn;
przv:=sot*des*edn;
if (sum=przv) then write(i:5);
end;
Writeln('Press Enter to Exit');
readln;
END.
Нахождение значения функции
Распечатать таблицу значений Y=x*x на промежутке от -10 до 10
Решение
var x,y:integer;
BEGIN
for i:=-10 to 10 do
begin
y:=x*x;
writeln('При х=',x:3,' Y=',y:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Распечатать таблицу значений Y=3*x-5 на промежутке от -A до A
Решение
var x,y:integer;
a:integer;
BEGIN
write('A=');readln(a);
for x:=-a to a do
begin
Y:=3*x-5;
writeln('При х=',x:3,' Y=',y:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Распечатать таблицу значений Y=3*x-5 на промежутке от A до B
Решение
var x,y:integer;
a,b:integer;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
for x:=a to b do
begin
Y:=3*x-5;
writeln('При х=',x:3,' Y=',y:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Функция Промежуток [-5;5]
Решение
var x,y:integer;
BEGIN
for x:=-5 to 5 do
begin
if (x<0) then Y:=2*x else y:=2-x;
writeln('При х=',x:3,' Y=',y:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Функция Промежуток [a;b]
Решение
var x,y:integer;
a,b:integer;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
for x:=a to b do
begin
if (x>5) then Y:=2*x;
if x<0 then Y:=4+x;
if (x<=5) and (x>=0) then y:=2-x;
writeln('При х=',x:3,' Y=',y:3);
end;
Writeln('Press Enter to Exit');
readln;
END.
Нахождение сумм числовых последовательностей
Найти суму чисел от 1 до 100
Решение
var i:integer;
summa:integer;
BEGIN
summa:=0;
for i:=1 to 100 do
summa:=summa+i;
writeln('Значение суммы=',summa:3);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму парных двухцифровых чисел и вывести результаты промежуточных вычислений
Решение
var
i: integer;
s: integer;
BEGIN
s := 0;
for i := 10 to 98 do
begin
if i mod 2 = 0 then begin
s := s + i;
writeln('При i=', i:3, ' Сума=', s:3);
end;
end;
Writeln('Press Enter to Exit');
readln;
END.
Найти суму 2-ух цифровых чисел на промежутке от А до В
Решение
var i:integer;
s:integer;
a,b:integer;
BEGIN
s:=0;
write('A=');readln(a);
write('B=');readln(b);
for i:=a to b do
begin
s:=s+i;
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму непарных 3-oх цифровых чисел}
Решение
var i:integer;
s:integer;
BEGIN
s:=0;
for i:=100 to 999 do
begin
if (i mod 2=1) then s:=s+i;
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму чисел не кратных 3 на промежутке от 1 до А
Решение
var i:integer;
s:integer;
a:integer;
BEGIN
s:=0;
write('A=');readln(a);
for i:=1 to a do
begin
if (i mod 3<>0) then s:=s+i;
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму чисел кратных Н на промежутке от -А до А
Решение
var i:integer;
s:integer;
a:integer;
BEGIN
s:=0;
write('H=');readln(h);
write('A=');readln(a);
for i:=-a to a do
begin
if (i mod h=0) then s:=s+i;
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму чисел не кратных Н на промежутке от А до В
Решение
var i:integer;
s:integer;
a,b:integer;
BEGIN
s:=0;
write('H=');readln(h);
write('A=');readln(a);
write('B=');readln(b);
for i:=a to b do
begin
if (i mod h <> 0) then s:=s+i;
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму корней из чисел от 1 до Н
Решение
var i:integer;
s:integer;
BEGIN
s:=0;
write('H=');readln(h);
for i:=1 to h do
begin
s:=s+sqrt(i);
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Найти суму кубов из чисел от A до B
Решение
var i:integer;
s:integer;
a,b:integer;
BEGIN
s:=0;
write('A=');readln(a);
write('B=');readln(b);
for i:=a to b do
begin
s:=s+sqr(i)*i;
end;
Writeln('Результат = ',s);
Writeln('Press Enter to Exit');
readln;
END.
Нахождение колличеств чисел
Найти количество парных двухцифровых чисел
Решение
var i:integer;
k:integer;
BEGIN
k:=0;
for i:=10 to 99 do
begin
if (i mod 2=0) then k:=k+1;
end;
Writeln('Количество = ',k);
Writeln('Press Enter to Exit');
readln;
END.
Найти количество непарных 3-oх цифровых чисел
Решение
var i:integer;
k:integer;
BEGIN
k:=0;
for i:=100 to 999 do
begin
if (i mod 2=1) then k:=k+1;
end;
Writeln('Количество = ',k);
Writeln('Press Enter to Exit');
readln;
END.
Найти количество цифр не кратных 3 от А до В
Решение
var i:integer;
k:integer;
a,b:integer;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
k:=0;
for i:=A to B do
begin
if (i mod 3<>0) then k:=k+1;
end;
Writeln('Количество = ',k);
Writeln('Press Enter to Exit');
readln;
END.
Найти количество чисел кратных Н на промежутке от -А до А
Решение
var i:integer;
k:integer;
a,h:integer;
BEGIN
Writeln('H=');readln(h);
write('A=');readln(a);
k:=0;
for i:=-A to A do
begin
if (i mod h=0) then k:=k+1;
end;
Writeln('Количество = ',k);
Writeln('Press Enter to Exit');
readln;
END.
Найти количество чисел не кратных Н на промежутке от А до В
Решение
var i:integer;
k:integer;
a,b:integer;
h:integer;
BEGIN
write('H=');readln(h);
write('A=');readln(a);
write('B=');readln(b);
k:=0;
for i:=A to B do
begin
if (i mod h<>0) then k:=k+1;
end;
Writeln('Количество = ',k);
Writeln('Press Enter to Exit');
readln;
END.
Нахождение произведения числовых последовательностей
Найти произведение чисел от 1 до 10
Решение
var i:integer;
p:longint;
BEGIN
p:=1;
for i:=1 to 10 do
begin
p:=p*i;
end;
Writeln('Результат = ',p);
Writeln('Press Enter to Exit');
readln;
END.
Найти произведение двухцифровых чисел кратных 20
Решение
var i:integer;
p:longint;
BEGIN
p:=1;
for i:=10 to 80 do
begin
if (i mod 20=0) then p:=p*i;
end;
Writeln('Результат = ',p);
Writeln('Press Enter to Exit');
readln;
END.
Найти произведение 2-ух цифровых чисел на промежутке от А до В c выводом промежуточных вычислений
Решение
var i:integer;
p:longint;
a,b:integer;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
p:=1;
for i:=a to b do
begin
p:=p*i;
writeln(i,' ',p);
end;
Writeln('Результат = ',p);
Writeln('Press Enter to Exit');
readln;
END.
Найти произведение цифр не кратных 3
Решение
var i:integer;
p:longint;
BEGIN
p:=1;
for i:=1 to 9 do
begin
if (i mod 3<>0) then p:=p*i;
end;
Writeln('Результат = ',p);
Writeln('Press Enter to Exit');
readln;
END.
Найти произведение чисел кратных Н на промежутке от -А до А
Решение
var i:integer;
p:longint;
a,h:integer;
BEGIN
write('H=');readln(h);
write('A=');readln(a);
p:=1;
for i:=-a to a do
begin
if (i mod h=0) then p:=p*i;
end;
Writeln('Результат = ',p);
Writeln('Press Enter to Exit');
readln;
END.
Найти произведение чисел не кратных Н на промежутке от А до В c промежуточными вычислениями
Решение
var i:integer;
p:longint;
a,b,h:integer;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
write('H=');readln(h);
p:=1;
for i:=a to b do
begin
if (i mod h<>0) then begin
p:=p*i;
writeln(i,' ',p);
end;
end;
Writeln('Результат = ',p);
Writeln('Press Enter to Exit');
readln;
END.
Среднее арифметическое числовых последовательностей
Найти среднее арифметическое чисел от 1 до 100 c точностью 2 знака после запятой
Решение
var i:integer;
s:integer;
k:integer;
BEGIN
s:=0;
k:=0;
for i:=1 to 100 do
begin
s:=s+i;
k:=k+1;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Найти среднее арифметическое парных 2-ух цифровых чисел
Решение
var i:integer;
s:integer;
k:integer;
BEGIN
s:=0;
k:=0;
for i:=10 to 98 do
begin
if (i mod 2=0) then begin
s:=s+i;
k:=k+1;
end;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Найти среднее арифметическое 2-ух цифровых чисел на промежутке от А до В (A>10, B<100, A>B)
Решение
var i:integer;
s:integer;
k:integer;
a,b:integer;
BEGIN
s:=0;
k:=0;
write('A=');readln(a);
write('B=');readln(b);
for i:=A to B do
begin
s:=s+i;
k:=k+1;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Найти среднее арифметическое трёхцифровых чисел кратных 100 с выводом промежуточных результатов
Решение
var i:integer;
s:integer;
k:integer;
BEGIN
s:=0;
k:=0;
for i:=100 to 999 do
if (i mod 100=0) then begin
s:=s+i;
k:=k+1;
Writeln(i,'= ',i,' Колличество=',k);
end;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Найти среднее арифметическое цифр не кратных 3
Решение
var i:integer;
s:integer;
k:integer;
BEGIN
s:=0;
k:=0;
for i:=0 to 9 do
if (i mod 3<>0) then begin
s:=s+i;
k:=k+1;
Writeln(i,'= ',i,' Колличество=',k);
end;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Найти среднее арифметическое чисел не кратных Н на промежутке от -А до А
Решение
var i:integer;
s:integer;
k:integer;
a,h:integer;
BEGIN
s:=0;
k:=0;
write('H=');readln(h);
write('A=');readln(a);
for i:=-a to a do
begin
if (i mod h<>0) then begin
s:=s+i;
k:=k+1;
Writeln(i,'= ',i,' Колличество=',k);
end;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Найти среднее арифметическое чисел кратных Н на промежутке от А до В
Решение
var i:integer;
s:integer;
k:integer;
a,b,h:integer;
BEGIN
s:=0;
k:=0;
write('H=');readln(h);
write('A=');readln(a);
write('B=');readln(b);
for i:=a to b do
begin
if (i mod h=0) then begin
s:=s+i;
k:=k+1;
Writeln(i,'= ',i,' Колличество=',k);
end;
end;
Writeln('Результат = ',s/k:2:2);
Writeln('Press Enter to Exit');
readln;
END.
Нахождение сумм и произведений значений функции
Найти суму значений функции на промежутке от А до В
Y=x*x
Решение
var
x, y, s, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
s := 0;
for x := a to b do
begin
y := x * x;
s := s + y;
end;
writeln('Summa=', s:3);
readln;
END.
Функция
Решение
var
x, y, s, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
s := 0;
for x := a to b do
begin
if (x<0) then y := 2 * x else y := 2 - x;
s := s + y;
end;
writeln('Summa=', s:3);
readln;
END.
Функция
Решение
var
x, y, s, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
s := 0;
for x := a to b do
begin
if (x>5) then y := 2 * x
else if (x<0) then y := 4 + x
else y := 2 - x;
s := s + y;
end;
writeln('Summa=', s:3);
readln;
END.
Найти произведение значений функции на промежутке от А до В
Y=x*x
Решение
var
x, y, D, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
d := 1;
for x := a to b do
begin
y := x * x;
d := d * y;
end;
writeln('Umnojenie=', d:3);
readln;
END.
Функция
Решение
var
x, y, D, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
d := 1;
for x := a to b do
begin
if (x<0) then y := 2 * x else y := 2 - x;
d := d * y;
end;
writeln('Umnojenie=', d:3);
readln;
END.
Функция
Решение
var
x, y, D, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
d := 1;
for x := a to b do
begin
if (x>5) then y := 2 * x
else if (x<0) then y := 4 + x
else y := 2 - x;
d := d * y;
end;
writeln('Umnojenie=', d:3);
readln;
END.
Найти среднее арифметическое значений функции на промежутке от А до В
Y=x*x
Решение
var
x, y, s, a, b, k: integer;
sa: real;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
s := 0;
k := 0;
for x := a to b do
begin
y := x * x;
s := s + y;
k := k + 1;
end;
sa := s / k;
writeln('S_a=', sa:3:3);
readln;
END.
Функция
Решение
var
x, y, s, a, b, k: integer;
sa: real;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
s := 0;
k := 0;
for x := a to b do
begin
if (x<0) then y := 2 * x else y := 2 - x;
s := s + y;
k := k + 1;
end;
sa := s / k;
writeln('S_a=', sa:3:3);
readln;
END.
Функция
Решение
var
x, y, s, a, b, k: integer;
sa: real;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
s := 0;
k := 0;
for x := a to b do
begin
if (x>5) then y := 2 * x
else if (x<0) then y := 4 + x
else y := 2 - x;
s := s + y;
k := k + 1;
end;
sa := s / k;
writeln('S_a=', sa:3:3);
readln;
END.
Найти минимальное значение функции на промежутке от А до В
Y=x*x
Решение
var
x, y, min, a, b: integer;
BEGIN
write('A=');readln(A);
write('B=');readln(b);
min := a * a;
for x := a to b do
begin
y := x * x;
if (y
Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K2 > N. Функцию извлечения квадратного корня не использовать.
Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K2 > N. Функцию извлечения квадратного корня не использовать.