program p;
var a,b,c,k: integer;
begin
writeln("Введите a,b,c,k: "); readln(a,b,c,k);
if (a mod k)=0 then writeln("K является делителем A");
if (b mod k)=0 then writeln("K является делителем B");
if (c mod k)=0 then writeln("K является делителем C");
readln; end.
Циклический алгоритм - это такой алгоритм, действия которого повторяются.
Линейный алгоритм - алгоритм, все этапы которого выполняются однократно и строго последовательно.
Разветвляющийся алгоритм - алгоритм, содержащий хотя бы одно условие, в результате проверки которого ЭВМ обеспечивает переход на один из двух возможных шагов.
решение:
<span>var x,n:integer; </span>
<span>begin </span>
<span>n:=0; </span>
<span>for x:=11 to 99 do </span>
<span>if odd(x) then inc(n); </span>
<span>writeln(n); </span>
<span>readln; </span>
<span>end. </span>
<span>раскинув мозгами </span>
<span>begin writeln((99-10+1) div 2); readln; end. </span>
<span>а так как число двузначных нечетных всегда постоянно, то самое правильное решение </span>
<span>begin writeln(45); readln; end.</span>
1. 320 * 480 * 16 = 2457600 бит.
2457600 : 8 = 307200 байт.
307200 : 1024 = 300 КБ
2. 2,5 МБ = 20971520 бит.
<span>2684354560 б = 2,5 ГБ.
</span>
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.