1 - Надпись
2 - Эллипс
6 - Распылитель
10 - Масштаб
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
Ш1А; Ш картинка Кока-Колы.
выбирай
<span>Вариант 2 номер пакета т.к. остальные не подходят</span>