Program user;
uses crt;
var a, b: real;
begin
writeln('введи число с клавиатуры');
readln(a);
If a>10 then b:=a*2 else b:=a-5;
end.
1) Дано число. Получить новое число с обратным значением цифр , где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются .
dy
Var a,h:longint;
b:integer;
begin
writeln ('введи число');
readln (a);
while a>0 do begin
b:=a mod 10;
case b of
0: b:=9;
1: b:=8;
2: b:=7;
3: b:=6;
4: b:=5;
end;
h:=h*10+b;
a:=a div 10;
end;
a:+0;
while h>0 do begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.
<span>РОТА – роЗа – Поза –поЛа –ПОЛК</span>
2) Мой компьютер (Проводник);
3) Панель управления
Версія на Українському:
2) Мій комп'ютер (Провідник);
<span>3) Панель управління.
Перевод с помощью Google.</span>