Program n1;
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.
3) Вычисляет сумму цифр любого натурального четырехзначного числа
При поиске контакта в телефонной книге своего сотового телефона с включеной функцией Т9 Маша последовательно ввелаклавиши 2454539 Известно что одну...<span>ответ будет:Володя
</span>
<span>var f,i:</span>integer;
<span><span>begin
</span></span>
f:=1;
<span>for i:=</span>1 to 6 do f:=f*i;
<span>
write(f);
end.</span>