<span>1. Бумажные презентации:
</span><span>2. Электронные презентации:</span>
Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do begin
a[i]:=i;
if a[i] mod 2=0 then
writeln(a[i], ' '); end;
end.
Var a,b:real;
begin
write('Введите а и b: ');
readln(a,b);
if b=0 then
writeln('На ноль делить нельзя!')
else writeln('a/b=',a/b);
<span>end. </span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
128 128 128 128 128 128 128