program yura; var x: integer; begin writeln ('Напишите x'); readln

73

program yura; var x: integer; begin writeln ('Напишите x'); readln (x); if x mod 2=0 then writeln (xx+(sqrt2) else writeln (xx*x+x) end.

категория: информатика

ответить

в избранное

34

vitaliyt

19 марта 2023

Не очень понятно задание. На сколько могу судить ошибки нет.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Другие вопросы по информатике

19 марта 2023

Расположить числа в порядке убывания: 1024 бита,1000 байтов,1 бит,1 байт,1 Кбайт.

19 марта 2023

Найти площать и периметр квадрата. Вывести 1, если в сумме площать и периметр превышают 50 и вывести 0, если сумма мешьше 50. Сторону квадрата ввестисамому.

19 марта 2023

Создание 1 отечественного компьютера год: 1492, 1946, 1951, 1895

19 марта 2023

Вывести на экран квадратные кубы ничетных чисел. Прагрума PASCAL. Решите пожалуйста… зараниеспасибо)

19 марта 2023

Дан список наименований товаров с указанием их цен на начало года. Известен уровень инфляции в процентах для каждого месяца года (взять значения от 0,5 до 2%). Рассчитать цены каждого товара на 1-е число каждого месяца и конец года, компенсирующие потери от инфляционного процесса.

19 марта 2023

В бочке хранится несколько ведер бензина. Как из нее отлить 6 литров бензина в другую бочку с помощью 9-литрового и 5-литрового бидонов? РЕШИТЕПОЖАЛУЙСТА! БУДУ ОЧЕНЬ БЛАГОДАРНА!

19 марта 2023

Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+… .

19 марта 2023

Двумерные массивы. Сам. Работа Вар.2 С-14

19 марта 2023

На чью письменность-египетскую, вавилонскую или финикийскую-больше всего похожекитайская?

Задайте свой вопрос

ПОПУЛЯРНОЕ

paganki, 19 марта 2023

Расположить числа в порядке убывания: 1024 бита,1000 байтов,1 бит,1 байт,1 Кбайт

timan, 19 марта 2023

Найти площать и периметр квадрата

yalo555, 19 марта 2023

Создание 1 отечественного компьютера год: 1492, 1946, 1951, 1895

artyom88, 19 марта 2023

Вывести на экран квадратные кубы ничетных чисел. Прагрума PASCAL. Решите пожалуйста… зараниеспасибо)

sergy, 19 марта 2023

Дан список наименований товаров с указанием их цен на начало года

anael123, 19 марта 2023

В бочке хранится несколько ведер бензина

joeyparry, 19 марта 2023

Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+…

dmtr78, 19 марта 2023

Двумерные массивы. Сам. Работа Вар.2 С-14

majiblu, 19 марта 2023

На чью письменность-египетскую, вавилонскую или финикийскую-больше всего похожекитайская?

27400

14821

Английский язык

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

465

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...