Широкополосная сеть стала доступна (2000)
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
Var a:integer;
<span>begin </span>
<span>writeln('Введите сторону куба'); </span>
<span>readln(a); </span>
<span>writeln('Объем куба с ребром ',a,' равен — ',a*a*a); </span>
<span>writeln('Площадь поверхности куба равна — ', 6*a*a); </span>
<span>end. </span>
var x: integer;
begin
write('Введите номер месяца: ');
readln(x);
if (x = 9)or(x = 10) then writeln('I четверть');
if (x = 11)or(x = 12) then writeln('II четверть');
if (x = 1)or(x = 3) then writeln('III четверть');
if (x = 4)or(x = 5) then writeln('IV четверть');
end.
Var n,a,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if a mod 4 = 0 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
n = 5
Вводите числа:
15
24
73
48
94
k = 2