Ответы на вопрос:
Program n1; var a,b,c: real; begin readln(a,b,c); if (a=b) and (a=c) and (c=b) then writeln('переменные =') else begin a: =a+10; b: =b+10; c: =c+10; end; end.
Популярно: Информатика
-
Что выйдет на экране вреультате Выполнения a = 1 b = 2 print(a)...
kartofan2016p08uuy03.09.2022 10:58 -
⦁ Где можно применить движение по квадрату? ⦁ Какие геометрические...
artemikochan14.01.2022 03:35 -
Изучив предложенные поля и положения робота, определи цвет поля,...
sasha1721018.09.2020 14:19 -
- - Представьте число -35 в двоичном виде в восьмибитовом представлении...
Olesyalesya5526.12.2021 07:45 -
Graphabc паскаль нарисовать паровоз...
ultraomegaus29.01.2022 16:00 -
Разобрать программу n_2стр 118, используя ее как контрольный пример,...
coldsssiemens15.10.2020 09:49 -
Які з алгоритмів належать до алгоритмічної структури галуження? *...
meshiydima09.11.2021 12:20 -
Сделайте плз инфа 11-10 класс...
bazakechova56602.01.2022 19:33 -
Ребят, кто знает как решать 5 и...
osipovasashaa08.03.2023 08:07 -
Преобразуйте алгоритм в программу на языке Паскаль(скрин ниже)...
innadom3422.05.2021 21:57