tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в паскаль!
Написать программу в паскаль! 1) вывести n целых случайных чисел из промежутка от 0 до 10 2)вычислить сумму чисел из промежутка от 1 до 10
csonzdanova
2 10.09.2019 23:50
0
Ответы
ahgdy
07.10.2020 06:22
1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do write(random(11),' ');
end.
Пример:
10
5 2 9 5 7 2 10 0 1 6
2.
var s,i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+i;
write('s = ',s);
end.
Результат:
s = 55
ПОКАЗАТЬ ОТВЕТЫ
тимур617
07.10.2020 06:22
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
SeqRandom(Readinteger,0,10).Println
end.
Пример
13
7 5 6 8 9 9 4 5 7 3 1 7 10
2)
begin
Writeln(1.To(10).Sum)
end.
Результат
55
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gudroonnp010ou
17.05.2019 13:29
Ть будь ласка ♥️2. (1 ) електронна таблицяможе складатися з декількохаркушів, кожен з яких поділенийнаа, рядки: 6. рядки і стовпці: в стовпці; г. вікна....
виквик4
17.05.2019 15:00
Составьте программу с блок схемой: 4. заданы площади круга и квадрата. поместится ли круг в квадрате?...
ep53
17.05.2019 15:00
Составить блок-схемы и программы для решения 1. даны три действительных числа а, в, с. определите, сколько среди них отрицательных....
karolsevilla384
21.07.2019 00:30
1обязательным условием при передаче информации является а)важность передаваемой информации б)понятность передаваемой информации в)собеседник г)источник,приемник,а также канал...
nosok666
23.08.2019 18:40
Написать программу которая определит сумму всех цифр пятизначного числа x(вводятся с клавиатуры) и вывести на экран сообщение.и определить заканчивается эта сумма на 3,является...
milanavornik
18.03.2021 01:04
Доказать равенство высказываний ___ _ _ AvB A*B...
viktoriam1
11.09.2019 08:20
Написать короткий рассказ о том откуда человек получает информацию....
rudens2007
18.05.2020 09:47
А) Прочитайте фрагмент текста. Исправьте в нем грамматические и речевые ошибки. От автора: рады вновь приветствовать вас на нашем блоге, уважаемый читатель. Сегодня мы поговорим...
Информатик111111
18.05.2020 09:47
1. Повідомлення, яке спонукає до виконання певної дії - це...В.А) рух,А) команда; Б) алгоритмплан дій.2. Скінченна послідовність команд виконання яких призводитьдо поставленої...
БродилаПоЛесу
18.05.2020 09:47
Найдите значения выражения...
Популярные вопросы
Решить 7 класса матиматическая модель в кабинете в шкафу стояли учебники по...
3
Вычислите: cos a и tg a, если sin a= -0.8 3п\2 объясните , как делать) заранее,...
2
Объясните пословицу: без наук как без рук....
2
Текст плача ярославны из произведения слово о полку игореве...
2
Найди площадь прямоугольника,у которого: длина 3м 5дм и ширина7дм длина378см...
3
Слово указатель в предложении я иду песочком...
3
Назовите примеры тел которых мы не можем видеть...
2
Закончите фразу. электрическим током называется...
2
Имеет ли запах: соль, сахар, глюкоза, лимонная кислота?...
1
Определите степени окисления 1) beso4 2) becl2 3) mgcl2 4) na2o 5) mgco3 6)...
3
var n,i:integer;
begin
readln(n);
for i:=1 to n do write(random(11),' ');
end.
Пример:
10
5 2 9 5 7 2 10 0 1 6
2.
var s,i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+i;
write('s = ',s);
end.
Результат:
s = 55
// Внимание! Если программа не работает, обновите версию!
1)
begin
SeqRandom(Readinteger,0,10).Println
end.
Пример
13
7 5 6 8 9 9 4 5 7 3 1 7 10
2)
begin
Writeln(1.To(10).Sum)
end.
Результат
55