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.
Компьютерные вирусы - это ненужное, вредное для компьютера, т.е то, что удаляет все файлы, при проникновении в компьютер, н/р: через диски, флешки, всякие сайты.
Антивирусные программы- это то, что истребляет компьютерные вирусы. Это полнейшая противоположность, поэтому общего у них вообще не будет.
Ввода инф приборы принтер,колонки,монитор.
3 вывода,6 всего=>надо вытащить 4 штуки
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.