tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу паскаль по
Составить программу паскаль по этим 1)для натурального числа n, если оно делится на 5, получить eго удвоенную сумму 2) вычислить значение функции f= x+7, если x< 5 x/3, если x> 5 9, если x=5
Atedoz
1 19.07.2019 18:30
0
Ответы
sevsdasdaddd
03.10.2020 08:07
Задача №1
Непонятно про удвоенную сумму. Пока написал код для удвоенного значения.
//Pascal
var a:integer;
begin
readln(a);
if a mod 5 = 0 then a:=a*2;
writeln (a);
end.
Задача №2
//Pascal
var f,x:real;
begin
readln(x);
if x<5 then f:=x+7;
if x>5 then f:=x/3;
if x=5 then f:=9;
writeln(f);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
John009
19.11.2020 15:55
с информатикой Построить блок-схемы алгоритмов для каждого задания. Найти объем куба со стороной равной b. Даны три целых положительных числа. Среди чисел а, b, c определить...
masha1263
19.11.2020 15:55
Данные об учащихся школы и предметах, которые они изучают, хранятся в таблице базы данных. Какое правило было нарушено при создании таблицы? код ученика должен быть номером...
stilist2011
19.11.2020 15:56
Какая формула для кубов в таблице Excel?...
prvvk
19.11.2020 15:56
Считайте со стандартного ввода целое число и выведите ASCII-символ с таким кодом. Решите эту задачу с использованием только одной переменной типа int.Входные данныеПрограмма...
sherlock0w
19.11.2020 15:56
У скольких учащихся фамилия начинается с буквы З ? Подскажите формулу...
dianacm789
06.09.2019 05:10
Решите : в группе 74 (в 8 системе счисления) % и 1100 (в 2 системе счисления) мальчика. сколько студентов в группе? сколько среди них девочек?...
ndknmm
06.09.2019 05:10
Уцариці несміяни кругле обличчя, радіус якого дорівнює r. визначити довжину сторони такого квадратного дзеркала, щоб, коли несміяна милується собою, її відображення помщалось...
Love2111
06.09.2019 05:10
Заголовок вікна використовується для...
Marshmallow123
06.09.2019 05:10
Написать код на паскале, который выполняет следующие условия если x 0 c=x*y^2 если x 0 c=x-y если x=0 c=x+y...
esnira1098376
06.09.2019 05:20
Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. какой информационный объём этого текста?...
Популярные вопросы
за сочинение в формате ЕГЭ (27 задание). Напишите сочинение по прочитанному...
1
В народі говорять , що кожна людина має протягом життя зробити три речі:...
3
От (могу бан памагтиии короче нужно уравнять формулы что ли, не знаю как...
3
23 True or False . 1. April 22 is Earth Day.2. People all over the world...
2
Ребят очень Через час у меня будут первые занятие игры на укулеле, а идти...
1
Яка точка не належить графіку функції у = х2 +1? (0;1) (-1;1) (2;5) (-2;5)...
2
ХИМИЯ!! объясните почему KOH + NaCl реакция не идёт, ведь щелочь + соль...
2
10 ҮЙ ТАПСЫРМАСЫа) Есепті шығар.ә) Есептің шартын мәшинелер бір-біріне қарама-қарсыбағытта...
3
А(b - с) + с(с разложить на множители...
3
Что общего у навеллы и рассказа?...
2
Непонятно про удвоенную сумму. Пока написал код для удвоенного значения.
//Pascal
var a:integer;
begin
readln(a);
if a mod 5 = 0 then a:=a*2;
writeln (a);
end.
Задача №2
//Pascal
var f,x:real;
begin
readln(x);
if x<5 then f:=x+7;
if x>5 then f:=x/3;
if x=5 then f:=9;
writeln(f);
end.