Наум
4 год назад
ПОЖАЛУЙСТА Пожалуйста посчитайте! Данное целое число, если оно положительное прибавьте к нему 3,если отрицательное отнемите 4 ,если равно 0 то заменить на 10 (блок схему)
ОТВЕТЫ
Слави
Oct 24, 2020
var a:integer;
begin
read (a);
if a>0 then
a:=a+1;
if a<0 then
a:=a-2;
if a=0 then
a:=10;
write(a);
end.
26
Смежные вопросы: