Var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.')
else writeln('Произведение этих чисел не кратно 4.')
end.
Если n - натуральное число, то
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
1.Step.Select(n->2*n+3).TakeWhile(a->a<100).Println
end.
<u><em>Результат:</em></u>
5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
<h2>Программа написана и протестирована на языке PascalABC.NET</h2>
- var
- A, B, C: real;
- e, f: real;
- begin
- Readln(A, B, C);
- Readln(e, f);
-
- if (A >= e) and (A <= f) then Writeln(A);
- if (B >= e) and (B <= f) then Writeln(B);
- if (C >= e) and (C <= f) then Writeln(C);
- end.
Для увеличения картинки нажмите на лупу (расположена на фотографии) либо откройте фотографию в новой вкладке.
s=(х1)+(х2)+(3х)+(х4х)+(хn)+0,0001