М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
daria9303
daria9303
16.08.2021 00:45 •  Информатика

Какие для создание веб сайта

👇
Ответ:
MrNeik1
MrNeik1
16.08.2021
1) Через хостинг (онлайн).
2) Через любой текстовый редактор (оффлайн).
Может ещё есть какие-нибудь
4,7(81 оценок)
Открыть все ответы
Ответ:
Taya200401
Taya200401
16.08.2021

Задание 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.

Примеры работ:


Общие требования к программам: a) все программы должны содержать защиту от некорректного ввода; b) з
Общие требования к программам: a) все программы должны содержать защиту от некорректного ввода; b) з
Общие требования к программам: a) все программы должны содержать защиту от некорректного ввода; b) з
4,4(81 оценок)
Ответ:
raku13
raku13
16.08.2021
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4
4,4(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ