Const a:array[1..10,1..5] of integer = ( (1,2,3,4,5), (2,2,3,4,5), (3,2,3,4,5), (4,2,3,4,5), (5,2,3,4,5), (6,2,3,4,5), (7,2,3,4,5), (8,2,3,4,5), (9,2,3,4,5), (10,2,3,4,5) ); var i,j:integer; begin writeln; for i := 1 to 10 do begin for j:= 1 to 5 do write(a[i,j],' '); writeln; end; end.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var k:=0; var n:=ReadInteger(); var nmax:=0; while n<>0 do begin Inc(k); if n mod 10 = 0 then if n>nmax then nmax:=n; n:=ReadInteger() end; var cntrl:=ReadInteger(); Writeln('Получено ',k,' чисел'); Writeln('Полученное контрольное значение: ',cntrl); Writeln('Вычисленное контрольное значение: ',nmax); if cntrl=nmax then Writeln('Контроль пройден') else Writeln('Контроль не пройден') end.
Программа: #include <iostream> using namespace std; int main() { int a=5; int b=4; int c; cout << "Количество яблок у Васи = " << a << "\n"; cout << "Количество яблок у Пети = " << b << "\n"; cout << "Количество яблок у Васи и Пети вместе = " << a+b << "\n"; c=(a+b)/3; cout << "Если разделить на 3-х поровну, то получится = " << c << "\n"; return 0; }
Результат: Количество яблок у Васи = 5 Количество яблок у Пети = 4 Количество яблок у Васи и Пети вместе = 9 Если разделить на 3-х поровну, то получится = 3
(1,2,3,4,5),
(2,2,3,4,5),
(3,2,3,4,5),
(4,2,3,4,5),
(5,2,3,4,5),
(6,2,3,4,5),
(7,2,3,4,5),
(8,2,3,4,5),
(9,2,3,4,5),
(10,2,3,4,5) );
var
i,j:integer;
begin
writeln;
for i := 1 to 10 do
begin
for j:= 1 to 5 do
write(a[i,j],' ');
writeln;
end;
end.