Общие требования к программам: a) все программы должны содержать защиту от некорректного ввода; b) защиту от деления на 0; c) защиту от ошибок работы с файлами (используйте конструкцию try except); d) Все исходные данные вводятся с клавиатуры; e) Результаты вычислений отображаются на экране; Для задачи 1 дополнительные требования: f) Ваша фамилия, номер группы, дата сдачи экзамена, исходные данные и результаты работы программы должны заносится в текстовый файл; 1. Пользователь вводит N чисел. Найдите сумму и произведение данных чисел. 2. Определение кода символа. Задайте символ. Определите его код (GUI); 3. Заполните при генератора одномерный список числами в диапазоне от 0 до 100, которые нацело делятся на 5. Выведите результаты на экран с указанием имени и индекса каждого элемента.
Morkovka911
3
16.06.2020 12:22
3
Другие вопросы по теме Информатика
Димон20143
07.07.2019 05:10
969758676
07.07.2019 05:10
artem870
07.10.2019 11:20
Gamoo
07.10.2019 11:20
tmihailviktoroozvxn9
07.10.2019 11:20
misha666anibeat
06.06.2019 16:20
Vados2002k
02.12.2020 14:10
frolovbogdan122
23.04.2020 14:23
AmitJK
23.04.2020 14:23
VaryaStar55
23.04.2020 14:23
Популярные вопросы
- Цель: выяснить суть противоречий между россией и исламского мира.: 1.показать...
3 - Люди добрые два провода одинаковой длины и сечения, виротовлени из меди и...
2 - Sin(x)=1/2 у меня получается х=(-1)^к π/6+πк,к € zкак получить х=π/6 и х=5π/...
3 - Нужна сказка про личэбник на буларусккай мове...
1 - Give and write down your impression of the concert you recently visited /...
1 - Таблица, всё указано в фотографии...
1 - Заполните таблицу ! таблица в прикреплённом файле. 34...
3 - 22 ! решите подробно! с дано, док-ть и доказательством и если не трудно с...
3 - Ть будь ласка скласти твір на тему і чужому научайтесь, й свого не цурайтесь...
3 - Надо найти максимальный отрицательный элемент в диапазоне [-7; 7]?...
3
Задание 1:
beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.Задание 2:
uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.Задание 3:
beginWriteln(' I: X:');SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2} {1}',x[0],x[1])) end.Примеры работ: