Ты вводишь любое число, которое в памяти компьютера присваивается в ячейку 'a'.
for i:=1 to a do Данная строка — некий алгоритм, повторяющийся определённое количество раз; 1 to 'a' ('a' — число, которое ты ввела). Например, если ты ввела число 3, то твой алгоритм будет повторяться 3 раза.
if a mod i=0 then b:=b+1 Данная строка означает: если остаток от деления 'a' на 'i' равен нулю, то мы к 'b' прибавляем один.
if b=2 then writeln('простое число') Если число 'b' равно двум, то на экране выводим надпись: "Простое число"; else writeln(' не простое число') Если же число 'b' неравно двум, то на экране выводим надпись: "Непростое число" (если переводить подробно).
А теперь, насчёт числа 3. Заменяем программу: var a, i, b:integer; begin readln (a); for i:=1 to 3 do if 3 mod i = 0 then b:=b + 1; if b = 2 then writeln ('простое число') else writeln ('непростое число'); end.
Вводится число 3. Алгоритм повторяется 3 раза. Остаток деления 3 на 1 равен нулю? — нет —> b + 1 (b = 1); Остаток деления 3 на 2 равен нулю? — нет —> b + 1 = 1 + 1 = 2 (b = 2); Остаток деления 3 на 3 равен нулю? — нет —> b + 1 = 2 + 1 = 3 (b = 3). <Программа идёт дальше> Если b = 2, то выводим надпись: "простое число". b ≠ 2, так как b = 3 (после выполнения алгоритма) —> выводим надпись: "Непростое число". Конец.
I,j,k:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end; for i:=1 to n do for j:=1 to m do if a[i,j]mod 2<>0 then k:=k+1; writeln('Количество нечетных ',k); end.
for i:=1 to a do
Данная строка — некий алгоритм, повторяющийся определённое количество раз; 1 to 'a' ('a' — число, которое ты ввела). Например, если ты ввела число 3, то твой алгоритм будет повторяться 3 раза.
if a mod i=0 then b:=b+1
Данная строка означает: если остаток от деления 'a' на 'i' равен нулю, то мы к 'b' прибавляем один.
if b=2 then writeln('простое число')
Если число 'b' равно двум, то на экране выводим надпись: "Простое число";
else writeln(' не простое число')
Если же число 'b' неравно двум, то на экране выводим надпись: "Непростое число" (если переводить подробно).
А теперь, насчёт числа 3.
Заменяем программу:
var a, i, b:integer;
begin
readln (a);
for i:=1 to 3 do
if 3 mod i = 0 then b:=b + 1;
if b = 2 then writeln ('простое число')
else writeln ('непростое число');
end.
Вводится число 3. Алгоритм повторяется 3 раза.
Остаток деления 3 на 1 равен нулю? — нет —> b + 1 (b = 1);
Остаток деления 3 на 2 равен нулю? — нет —> b + 1 = 1 + 1 = 2 (b = 2);
Остаток деления 3 на 3 равен нулю? — нет —> b + 1 = 2 + 1 = 3 (b = 3).
<Программа идёт дальше>
Если b = 2, то выводим надпись: "простое число".
b ≠ 2, так как b = 3 (после выполнения алгоритма) —> выводим надпись: "Непростое число".
Конец.
Надеюсь, доходчиво объяснил. Удачи :)
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]mod 2<>0 then k:=k+1;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
10 -1 -1 3 5 -3 -6 -1 2 8
-5 -5 -3 -1 3 -8 -1 -1 -6 -2
2 -3 5 0 -1 -4 0 3 7 -8
-6 5 6 3 -8 -6 -4 10 -3 0
-5 -4 2 -6 -10 -2 -1 3 5 -7
2 -10 2 10 -8 2 4 9 -6 -1
7 1 3 -1 3 0 0 4 -3 -1
7 -1 -8 4 -8 -5 6 1 0 -9
7 8 9 3 0 -6 -8 6 0 0
0 -3 6 8 4 4 4 -8 1 0
Количество нечетных 45