Ребят задача на языке Pascal…

57

Ребят задача на языке Pascal… Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.

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

ответить

в избранное

72

igrun1

12 марта 2023

Program pr; uses crt; Var a; BeginWriteln ('Введите число'); readln (a); if (a>9) and (a<100) then a: =a*2else a: =a-10; Writeln (a); readln; end.

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

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

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

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

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

Смотрите также:

Приведите примеры знаковых систем

Заполнить массив случайными числами и вывести в консоль 40 элементов Числа из промежутков от 1000 до 2000

Решить с проверкой сложения: 262-72 ,356-207 (и это все в восьмиричной системе)

Какое количество информации несет двоичный код 01101101?

Какую ошибку называют синтаксической, а какую-семантической?

Cоставьте таблицу истинности (неС или А и неВ)

Помогите пожалуйстаРешите с решением Растровый файл, содержащий черно-белый

Предположим, что на «марсианском» языке выражение «lot do may» означает «кот съел мышь»; «may is» – «серая мышь»;…

Написать сообщение о формальных языках информатики

27400

14822

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

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

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

466

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

46271

Русский язык

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

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

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