НЕ (число > 60) И (число > 30)
(число < 60) И (число > 30)
30 < число < 60 (Так как "И")
число ∈ (30 ; 60)
Памяти
...........................................................................................
Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer;
Begin
writeln ('Введите число');
readln(n);
writeln('Делители числа:');
for i := 1 to n div 2 do
if (n mod i) = 0 then begin
write(i,' ');
end;
End.
Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
a, b, x, y, nod: integer;
begin
writeln('Введите a,b');
readln(a, b);
x := a;y := b;
while x <> y do
if x > y
then x := x - y
else y := y - x;
nod := x;
writeln('NOD(', a, ',', b, ')=', nod);
end.
Все еще проще можно написать
1.
Program chislo;
var i,s:Integer;
begin
i:=100;
while i<=999 do
begin
if (i mod 2 <> 0) then s:=s+i;
Inc(i);
end;
Writeln(s);
end.
2. Число в обратном порядке (ввод с клавиатуры)
Program sum_3;
var n,s:Integer;
begin
Read(n);
while(n>0) do
begin
s:=n mod 10;
n:=n div 10;
Write(s);
end;
end.
Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.