23040000 бит
2,75 Мега байта
22500 Кило байта
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.
Program lol (input, output);
var a, n, b, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
if s > 7 then
c:=c+s;
b:=b-1;
end;
writeln (c);
end.
// PascalABC.Net 3.0, сборка 1052
const
nn=100;
var
a:array[1..nn] of integer;
p,s:longint;
i,n:byte;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Writeln('Вводите целочисленные элементы массива через пробел');
s:=0; p:=1;
for i:=1 to n do begin
Read(a[i]);
if i mod 2 = 0 then p:=p*a[i];
s:=s+a[i]
end;
Writeln('Произведение элементов с четными номерами: ',p);
Writeln('Среднее арифметическое элементов: ',s/n)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8
Var
a,i:integer;
m:real;
begin
Randomize;
m:=0;
Write('Получены числа: ');
for i:=1 to 3 do
begin
a:=Random(10);
Write(a,' ');
m:=m+a
end;
Writeln;
m:=m/3;
Writeln('Их среднее арифметическое равно ',m:0:3)
end.
<em><u>Тестовое решение:</u></em>
Получены числа: 5 3 3
Их среднее арифметическое равно 3.667
var
n:integer;
begin
Write('Введите целое число: '); Read(n);
Writeln(n-1,', ',n,', ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите целое число: 35
34, 35, 36