Регистрация
GDI1
29.05.2022 08:17
Информатика
Есть ответ 👍

При виконанні якої програми Х буде цілим число?Фото прикрепил

123
428
Посмотреть ответы 1

Ответы на вопрос:

ksenla200xxx
ksenla200xxx
4,4(35 оценок)
Var   str: string;   q: integer;   k: string; begin   writeln('введите строку');   readln(str);   k : = '..';   q : = pos('.', str );   while q < > 0 do   begin       insert(k, str, q );       q : = posex('.', str, q + 3 );   end;   writeln(str); end.

Популярно: Информатика