program n1; uses crt; var a,b,c,x: integer; beginclrscr; writeln('vvedite chislo'); readln(x); a: =x div 100; c: =x mod 10 ; b: =x div 10 mod 10; if a=0 then writeln('chislo ne trehznachnoe! ') else writeln(c,b,a); readlnend.
2) или через string
program n1; uses crt; var a: string; beginclrscr; writeln('vvedite chislo'); readln(a); if length(a)> 3 then writeln('oshibka') elsewriteln(a[3],a[2],a[1]); readlnend.
Спасибо
Ответ дал: Гость
1. oc ( операционная система ) позволяет всем что происходит в компьютере.
2. windows , linux ( возможно ошибка в написании ) , mac os
3.относятся также диалоговые оболочки и сервисные программы.
сервисные программы – это программы обслуживания дисков (копирование, форматирование, «лечение» ), сжатия файлов на дисках (архиваторы), борьбы с компьютерными вирусами и т.д.
4. java, turbo basic, quick basic
5.системы программирования предназначены для программистов .
Ответ дал: Гость
на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а
Популярные вопросы