#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
int i;
for (i = sqrt(a) + 1; i < sqrt(b); i++)
{
cout << i * i << " ";
}
return 0;
}
Program Help;
Var i : Word;
Begin
(* 1 способ *)
For i := 100 to 999 do
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
Writeln;
(* 2 способ *)
i := 100;
While i < 999 do
Begin
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
End;
Writeln;
(* 3 способ *)
i := 100;
Repeat
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
Until i = 999;
Readln;
End.
{В двухмерном массиве найдите количество и произведение не кратных 4
трехзначным элементов k-го столбца}
var
C:array [1..100,1..100] of integer;
p: longint;
kol, k:byte; {кол-во отрицательных эл-тов}
N,M,i,j:byte;
begin
writeln('введите размерность массива (кол-во строк, столбцов)');
readln(N,M);
writeln('введите элементы двумерного массива');
for i:=1 to N do
for j:=1 to M do
read(C[i,j]);
writeln('введите номер столбца');
readln(k);
kol:=0; P:=1;
for i:=1 to N do
if (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then {не кратно 4, трехзначное}
begin
P:=P*C[i,k];
kol:=kol+1
end;
writeln('kol=', kol:7);
writeln('произведение=', P:5)
end.