Ответы на вопрос:
Выделите объект WordArt, который вы хотите изменить. Перейдите к разделу Формат фигуры или средства рисования , > текстовые эффекты. Нажмите кнопку преобразовать, а затем выберите нужный эффект.
program exapmle2; var x,y,k: integer; begin writeln('эта программа определяет, число соседств чисел с одинаковыми знаками'); write('введите число: '); read(x); y: =x;
write('введите число: '); //добавить эти 2 строки read(x);
k: =0; while x< > 0 do // поменять у на х begin //if x*y< 0 then inc(k); убрать эту строку if x*y> 0 then inc(k); y: =x; read(x); // изменить у на х end; writeln(' число соседств ',k); writeln('нажмите enter для завершения работы программы'); readln; end.
Популярно: Информатика
-
Viking01234510.10.2022 17:51
-
nilnazarov66620.08.2022 12:40
-
syslik777329.05.2022 14:56
-
sweetdog731.10.2022 06:31
-
Luna66904.01.2022 07:18
-
brain7504.09.2021 06:48
-
averinael201326.06.2020 10:25
-
jajahahah8181730.03.2023 09:41
-
оеавц22.12.2020 15:37
-
LonelyOne30.11.2020 19:41