Вход
Регистрация
О проекте Как заработать?
53

Pascal abcНапишите программу…

whitele 08 марта 2023

Pascal abcНапишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.

категория: информатика
ответить
в избранное

69

Program abc; var i: integer; beginread (i); if i<0 theni: =sqr (i); write (i); end.

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
avainta
08 марта 2023
1
ответ
Дайте наиболее точное общее имя каждой группе объектов
ddv68
08 марта 2023
1
ответ
Начертить синим цветом контур буквы М на кумире
janjak
08 марта 2023
1
ответ
Можно ли выставление учителем оценки за ваш ответ на уроке назватьформализацией
platinum66
08 марта 2023
1
ответ
Дано натуральное число N. Напишите программу для вычисления суммы вида 1\1 (в квадрате)+1\2,+1\3,+1\N (вквадрате)
uskoritel
08 марта 2023
1
ответ
Выпишите основные понятия главы 1 и дайте их определения
vovanfun
08 марта 2023
1
ответ
1) Сколько бит в 1/4 кбайт? 2) Объем книги 300 кбит. Сколько книг мозно вместить на 1 мбайт?! 3) Сколько дискет объемом 360 кбит надо для хранения учебника, в котором 120 страниц и на каждой странице по 40 строк, по 60 знаков.
rom4eg
08 марта 2023
1
ответ
Помогите сделать пожалуйста! 1) В текстовом процессоре (редакторе) WordPad наберите слово «Информатика» и сохраните его в документе с именем D1, указав тип файла Текстовый документ. Запишите имя _________ и размер__________ созданного файла Объясните, почему созданный файл имеет именно такой размер: _______________ 2) В текстовом процессоре WordPad наберите Информатика и сохраните его в документе с именем D2 указав тип файла Текстовый документ в кодировке Unicode Запишите имя ______ и размер ________ созданного файла. Сравните размер нового файла с предыдущим ___________________________________________________ Чем это объясняется? _______________________________ 3) Все то же, но имя D3 и тип файла Файл RTF Запишите имя ________ и размер ________ созданного файла. Сравните размер нового файла с предыдущим. ______________________________________________ Чем это объясняется? _________________________
roman_v
08 марта 2023
1
ответ
Скласти алгоритм розв*язання лінійного рівняння a*x+b=0
olegon26rus
08 марта 2023
1
ответ
Определить среди 3 введенных чисел (a,b,c) количество отрицательных и положительных. Если больше отрицательных то найти произведение этих 3 чисел, аиначе найти max из трех
Задайте свой вопрос

ПОПУЛЯРНОЕ
avainta, 08 марта 2023
Дайте наиболее точное общее имя каждой группе объектов
ddv68, 08 марта 2023
Начертить синим цветом контур буквы М на кумире
janjak, 08 марта 2023
Можно ли выставление учителем оценки за ваш ответ на уроке назватьформализацией
platinum66, 08 марта 2023
Дано натуральное число N. Напишите программу для вычисления суммы вида 1\1 (в квадрате)+1\2,+1\3,+1\N (вквадрате)
uskoritel, 08 марта 2023
Выпишите основные понятия главы 1 и дайте их определения
vovanfun, 08 марта 2023
1) Сколько бит в 1/4 кбайт? 2) Объем книги 300 кбит. Сколько книг мозно вместить на 1 мбайт?
rom4eg, 08 марта 2023
Помогите сделать пожалуйста!
roman_v, 08 марта 2023
Скласти алгоритм розв*язання лінійного рівняння a*x+b=0
olegon26rus, 08 марта 2023
Определить среди 3 введенных чисел (a,b,c) количество отрицательных и положительных
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...