tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Записать в файл любые 10 чисел,
Записать в файл любые 10 чисел, используя функцию случайных чисел. найти модуль суммы и квадрат произведения этих чисел через pascal abc
kolasalnov5
1 18.07.2019 11:00
0
Ответы
ндо
07.09.2020 15:22
//Pascal ABC.NET v3.0 сборка 1111
Var
f:text;
s,a,i:integer;
p:int64;
begin
randomize;
p:=1;
for i:=1 to 10 do
begin;
a:=random(11)-3;
write(a:4);
p:=p*a;
s:=s+a;
end;
p:=sqr(p);
s:=abs(s);
assign(f,'text.txt');
rewrite(f);
writeln(f,p);
writeln(f,s);
close(f);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Svetarozen
04.10.2019 10:50
Вячейку с7 ввели формулу =(a$3-b5)/$b4. затем эту формулу скопировали в ячейку е9. какая формула содержится в е9?...
maksgrant86
04.10.2019 10:50
Переведите выражения на язык : x+y/10-x*x-y*y+y*y/2/x+(x-y)/(x+y)...
Варежкамяу
04.10.2019 10:50
Написать программу осуществляющую поиск в одномерном массиве a, состоящего из 20 элементов, заданных случайным образом элемента, равного 50. если такого нет, вывести...
nikcentennial
21.04.2020 11:58
ОТ ТОЛЬКО РЕШИТЕ! Ребята с заданиями по информатике! Хоть они и лёгкие, но я понять не могу :( 2 ЗАДАНИЕ Заполни пропуски в алгоритме. Игнредиенты: 2 картофелины, 4...
tsukhanova65
24.05.2021 15:28
4. Какой домен принадлежит коммерческой организации? A).gov B).edu C).mil D).com...
girldasha1
24.05.2021 15:29
Складіть обробник подій для кнопки по якій би змінювались усі відомі нам властивості форми Составьте обработчик событий для кнопки по которой бы менялись все известные...
andendlife
24.05.2021 15:32
Опишіть процес додавання до програми вікна повідомлень Опишите процесс добавления в программу окна сообщений:...
Alisacollins1
24.05.2021 15:34
Задача со звездочкой Пользователь вводит с клавиатуры два числа (начало и конец диапазона). Требуется проанализировать все числа в этом диапазоне. Нужно вывести на экран:...
dalqwe
27.05.2019 11:50
Првидите примеры слов синоним,слов профессионализма...
Jfigh
27.05.2019 11:50
Составить программу для определения, является ли натуральное число k степенью числа 3 borland c...
Популярные вопросы
Проблема сказки гофмана щелкунчик и мышиный король...
2
Исходя из свойств реагирующих соединений определить конеч-ные продукты...
2
+2(х+3у)=3(4х+у),2(5х-у)-3у =2+3(2х-у) решите систему уравнений спрособом...
2
Травести это актёры которые играют другую гендерную роль или половую...
2
Найдите число, 35% которого равны 22 можете с полным решением !...
1
Постройте треугольник авс по координатам его вершин: а(-3; 2); в(1;...
1
Вкоробке были карандаши . сначала из коробки взяли 50% карандашей...
2
Длина прямоугольника 17 см чему равна ширина если периметр 54 см...
1
С2-аминопропановой кислотой реагируют 1.этан 2.сульфат натрия 3.пропанол-1...
1
Insert articles where necessary. 1. i cannot find letter which you...
1
Var
f:text;
s,a,i:integer;
p:int64;
begin
randomize;
p:=1;
for i:=1 to 10 do
begin;
a:=random(11)-3;
write(a:4);
p:=p*a;
s:=s+a;
end;
p:=sqr(p);
s:=abs(s);
assign(f,'text.txt');
rewrite(f);
writeln(f,p);
writeln(f,s);
close(f);
end.