Отметьте все возможные инструменты для разработки сайта: * язык программирования Сиязык программирования Паскальязык разметки гипертекста HTMLэлектронные таблицыконструктор сайтов (визуальный HTML-редактор)Выберите несколько правил, которых следует придерживаться при оформлении страниц сайта: * Применяйте краткие названия пунктовИспользуйте одинаковые приемы форматирования абзацевСтавьте точку в названиях страниц, если они состоят из одного предложенияИзбегайте слишком длинных текстовИспользуйте пестрый фонВыберите этап, который осуществляется перед размещением сайта в сети Интернет: * Анализ посещаемости сайтаРеклама и продвижение сайта в ИнтернетеПоддержка сайтаТестирование сайтаКак называется услуга размещения сайта на сервере, постоянно находящемся в сети Интернет: * МоделингАдаптацияПроектированиеХостингОцените, на сколько сложно было создать свой сайт: * Очень легкоПришлось потрудится!Долго разбиралсяОчень трудноЯ не создавал сайтВыберите самый трудный этап создания сайта: * Выбор темы для сайтаРазработка структуры сайтаПодбор материала (текста, изображений, видео)Размещение материалов на сайтеРазработка дизайнаЯ не создавал сайтОцените, на сколько вам понравилось создавать сайт: *
Ответы
var
n, max, count, contrl, max2: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if n>max then begin max2:=max; max:=n end
else if n > max2 then max2 := n;
Read(n);
end;
max2*=max;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вычисленное контрольное значение:: ', max2);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.
Pascalabc.net var a: array[1..10000] of integer; kz,maxp,n,i,j: integer; begin i: =0; maxp: =integer.minvalue; writeln ('готов к приему чисел'); repeat i: =i+1; readln (a[i]); until a[i]=0; n: =i-1; readln (kz); for i: =1 to n-1 do for j: =2 to n do if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]); writeln ('получено ',n,' чисел'); writeln; writeln ('полученное контрольное значение: ',kz); writeln; writeln ('вычисленное контрольное значение: ',maxp); writeln; if kz=maxp then writeln ('контроль пройден') else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Проверьте , почему не работает
Автор: k075ko8
Краткая надпись на клавише, предназначенной для переключение режимов "вставка/замена"
Автор: krylova-natali
До ть будь ласка розв'язати ребус ! ів
Автор: Serezhkin
Найдите произведение элементов массива
Автор: Андрей Анна22
Выбери верное название обтекания
Автор: evge-borisova2
Объяснение:
язык разметки гипертекста HTML
конструктор сайтов (визуальный HTML-редактор)
Используйте пестрый фон
Поддержка сайта
Хостинг
Адаптация
Пришлось потрудится!
Разработка структуры сайта