Работает при условии, что А - не отрицательное число:
Var A:integer;
Begin
Write('A = ');
Read(A);
While A >0 do
Begin
A:=A-3;
End;
if A=0 then Write('А кратно трём')
else Write('А не кратно трём')
End.
Var
A:integer;
Begin
Write('A = ');
Read(A);
While A >3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от деления А на 3: ',A);
End.
14, у меня это в олимпиаде попалось))))
Include <iostream>
using namespace
int mail(){
int S, i,n;
cin>>n;
for(i=1,i<=n,i++)
{
S=S+i;
}
cout<<S<<endl;
system(“pause”)
return 0;
<span>}
P.S n это сколько нужно ввести цифр</span>
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.