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.
Var a:array [1..12] of integer; i,s:integer; begin writeln('vvedite 12 chisel'); for i:=1 to 12 do readln(a[i]); writeln('massiv'); for i:=1 to 12 do write(a[i],' '); writeln(); for i:=1 to 12 do if abs(a[i])>15 then s:=s+1; writeln('kolichestvo elementov = ',s) end.