PascalABC.NET
-----------------------------
var
a: array[1..10000] of integer;
kz,maxp,n,i,j: integer;
begin
i:=0;
maxp:=integer.MinValue;
writeln ('Готов к приему чисел');
repeat
i:=i+1;
readln (a[i]);
until a[i]=0;
n:=i-1;
readln (kz);
for i:=1 to n-1 do
for j:=2 to n do
if maxp<(a[i]*a[j]) then maxp:=(a[i]*a[j]);
writeln ('Получено ',n,' чисел');
writeln;
writeln ('Полученное контрольное значение: ',kz);
writeln;
writeln ('Вычисленное контрольное значение: ',maxp);
writeln;
if kz=maxp
then writeln ('Контроль пройден')
else writeln ('Контроль не пройден');
end.
--------------------------------------
Результаты:
1)
Готов к приему чисел
1 2 3 4 5 0 20
Получено 5 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 20
Контроль пройден
2)
Готов к приему чисел
1 2 3 4 5 6 0 20
Получено 6 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 30
Контроль не пройден
1. var
a, b: integer;
begin
write('Введите два числа >> ');
read(a, b);
writeln('Числа в обратном порядке: ', b, ' ', a);
end.
2. var
a, b, c: integer;
begin
read(a, b);
c := a + b;
write(a, b, c);
end.
3. var
a: integer;
begin
write('Введите двузначное число >> ');
read(a);
writeln('Сумма цифр = ', a div 10 + a mod 10);
writeln('Произведение цифр = ', a div 10 * (a mod 10));
end.
4. var
a, a1, a2, a3: integer;
begin
write('Введите целое трехзначное число >> ');
read(a);
a1 := a div 10;
a2 := a div 100;
a3 := a mod 10;
if (a1 = a2) or (a2 = a3) or (a1 = a3) then writeln('Да')
else writeln('Нет')
end.
5. var
a, b, c: integer;
begin
write('a b c >> ');
read(a, b, c);
if (a >= b + c) or (b >= a + c) or (c >= a + b) then
writeln('Не существует')
else if (a = b) and (b = c) then
writeln('Равносторонний')
else if (a = b) or (b = c) or (a = c) then
writeln('Равнобедренный')
else
writeln('Разносторонний')
end.
6. var
a, a500, a100, a50, a10: integer;
begin
write('Введите сумма сдачи >> ');
read(a);
writeln('Следует сдать: ');
while a >= 500 do
begin
a500 := a500 + 1;
a := a - 500;
end;
writeln('банкнот по 500 руб. - ', a500, ' шт.');
while a >= 100 do
begin
a100 := a100 + 1;
a := a - 100
end;
writeln('банкнот по 100 руб. - ', a100, ' шт.');
while a >= 50 do
begin
a50 := a50 + 1;
a := a - 50
end;
writeln('банкнот по 50 руб. - ', a50, ' шт.');
while a >= 10 do
begin
a10 := a10 + 1;
a := a - 10
end;
writeln('банкнот по 10 руб. - ', a10, ' шт.');
end.
01.<span>program massiv5;</span>02.<span>uses crt;</span>03.<span>const N=10;</span>04.<span>type x=array [1..<span>N] </span>of integer;</span>05.<span>var a:x;</span>06.<span>i:integer;</span>07.<span>max:integer;</span>08.<span>imax:integer;</span>09.begin10.clrscr;11.randomize;12.<span>for i:=1 to <span>N </span>do</span>13.begin14.<span>a[i]:= -50+random(101);</span>15.<span>write (A[i]:5)</span>16.<span>end;</span>17.<span>writeln;</span>18.<span>imax:=1;</span>19.<span>max:=A[1];</span>20.<span>for i:=2 to <span>N </span>do</span>21.<span>if <span>max<a[i] </span>then</span>22.begin23.max:=a[i];24.imax:=i25.<span>end;</span>26.<span>writeln (‘Максимальный элемент в массиве=’,max:5);</span>27.<span>writeln (‘Его индекс=’,imax:5);</span>28.readln29.<span>end<span>.</span></span>