tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу
Составьте программу на паскале 1. увеличьте число х на 1 , если оно положительное 2. составьте программу f=1·2·
Соня11647
2 20.08.2019 16:10
0
Ответы
tatyana171283t
08.09.2020 20:43
1)
var x:integer;
begin
readln(x);
writeln(x+1);
end.
2)
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln(f);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
strume54
17.11.2020 16:17
Таблица истинности. 18!балов...
alina1427
17.11.2020 16:17
1.Что вы знаете об операционных программах? 2.Какие программы управляются мобильными телефонами?Напишите о них информацию...
vovasherbak2003
17.11.2020 16:17
2. Какие программы,предназначенные длясоздания 2D-графики и 3Dграфики, ты знаешь?...
Bauer322
17.11.2020 16:17
Смотрите ребята нам даны рисовать сделать 6 клеток маленький рисунок и компактный . ( рисунок домик пришлите фотографию .)))...
Jyrtasa
30.10.2020 14:04
класс Осуществить перевод чисел одной системы счистления в другую...
nata1116
30.10.2020 14:05
ЕСЛИ В НАПИШЕТЕ ФИГНЮ БУДЕТ НАРУШЕНИЕ Изучи предложенный сценарий и определи ошибку в программном коде:СпрайтKOTОКи да е каратустановить преку игри в знениеДействияПостоянное...
MechtaJasnaja
08.06.2019 16:20
Написать программу на паскале, которая определяет количество предложений во введенном тексте....
aigamal
08.06.2019 16:20
Написать программу на паскале которая определяет, каков процент пробелов во введенном тексте....
znj93294znj93294
08.06.2019 16:20
1.найти количество отрицательных чисел во вводимой с клавиатуры последовательности. условие окончания ввода – ввод числа 0. 2.случайным образом сгенерировать дату и время....
АминаМингазова
08.06.2019 16:20
Turbo pascal.дано: массивы a ( n1,m1) , b(n2,m2),c (n3,m3). определить в каждом из заданных массивов сумму наибольших значений элементов его четных строк . определение суммы...
Популярные вопросы
Вкаком соединение степень окисления=0(of2,hf,f2,kf)...
2
Для приготовления оконных стёкол берут 25 частей песка, 9 частей соды...
3
Уматери ii группа крови, положительный резус-фактор, у отца iii группа...
1
Сравни : 1 дм 5 см * 2 дм. 2) 1м и 3 дм * 25 дм. 3)24 дм * 3 м...
2
Вромбе abcd проведена диагональ bd,которая равна стороне ромба. определите...
2
Составить рассказ о том что делают чудо машины.какие машины строить дома,собирать...
1
Рассчитайте давление воды на дно аквариума с размерами: длина 50 см ширина40см...
2
Напишите краткий рассказ про семью болконских из романа война и мир....
1
Мне нужно 5 названий газет которые выпускают до сихпор...
2
Проверить грамотность текста there is in moscow such unusual place -...
1
var x:integer;
begin
readln(x);
writeln(x+1);
end.
2)
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln(f);
end.