Ширина ячейки мала для отображения числа, необходимо увеличить ширину ячейки
(1) дано 17
(цикл)
17 * 2 + 31 = 65
65 * 2 + 31 = 161
161 * 2 + 31 = 353
(кц)
(5) ответ 353
Program c2_2;
var a: integer;
begin
write('увядіте цэлы лік');
readln(a);
if (a mod 2=0) then a:=a div 2;
write (a);
end.
Любую? тогда так:
var a,b,c:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
c := a + b;
writeln('Ответ:',c)
end.
если что-то не правильно скажи. А то я не могу проверить т.к. компа рядом нету.