Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
/engine - завести/заглушить автомобиль
/flip - восстановить авто
/rp - починить автомобиль
/light - вкл/выкл свет
/players - переключение режима игроков на карте
/camhack - свободная камера(для скринов)
F1- Freeroam
F3- Управление транспортом
F5- Смена скина
F7- Денежный перевод
F9- Личные сообщения/команды
F11 - Карта
F12 - Screenshot
5- Окрытие/удаление капота-дверей-багажника
6- Вид от первого лица
I - Дома на карте
U- Бизнесы на катре
Shift+O - убрать/поставить худ
B- Чип-Тюнинг
решение на языке pascal
program pr;
var n,a,b,c, sum: integer;
begin
readln (n);
a: =n div 100;
b: =n mod 100 div 10
c: =n mod 10
sum: =a+b+c;
if sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');
readln;
end.
var x,s,n: integer;
repeat
read(x);
if x< 0 then n: = n +1;
if x > 0 then s: =s+x;
until x=0;
writeln(n,s);
Популярные вопросы