read(a,b); s:=0; for j:=a to b do begin s:=s+j; end; write(s); end. 2) Напишите программу, которая выводит все четные числа до заданного пользователем числа.
Ответы
Будь первым, кто ответит на вопрос
Как добавить хороший ответ?
Что необходимо делать:
- Написать правильный и достоверный ответ;
- Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
- Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.
Что делать не стоит:
- Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
- Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
- Писать ответ ПРОПИСНЫМИ БУКВАМИ;
- Материться. Это невежливо и неэтично по отношению к другим пользователям.
Пример вопроса
Русский язык
7 минут назад
Какой синоним к слову «Мореплаватель»?
Обзор программы Alfred. Как быть продуктивным за компьютером?
Пожаловаться
Хороший ответ
Вася Иванов
Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.
Источник: uchi.ru
Помогите пожалуйста!
Что выполняет данная программа.
первый цикл for заполняет массив array, случайными числами из указанного диапазона, в цикле while происходит поиск пары чисел по условию начиная с 3го элемента. Если находят выводят, что такая пара есть, в противном случае что такой пары нет.
Вводтся число n, дальше будет использоваться для поиска, дальше как и в программе а, заполняем массив случайными числами в цикле for, в repeat, мы движемся по массив, пока не встретим наше значение n, если встретили, выводим: такое число есть в массиве, в противном случае, такого числа нет.В repeat until реализован линейный алгоритм поиска.
Объяснение:
Источник: 5pages.net
Что выполняет данная программа
Turbo Pascal
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_zl; type vector=array[1..100] of real; var k,m,n:word; i:integer; a:vector; begin randomize; write(‘сколько элементов в массиве? ‘); readln(n); write(‘введите заданное число k (меньше числа элементов в массиве): ‘); readln(k); for i:=1 to n do begin a[i]:=-100+random*200.1; write (a[i]:1.2:6) end; writeln; m:=k; i:=2*k; while i
Форумчанин
Регистрация: 02.12.2009
Сообщений: 309
Формулировка: Создать массив вещественных чисел из N элементов (N — вводится с клавиатуры).
Интеллектуальное лето.Информатика.Когнитивный анализ данных.
С помощью генератора случайных чисел заполнить его числами из промежутка [-100; 100.1]. Вывести на экран полученный массив. Найти минимальный элемент, меньший K-го (K — вводится с клавиатуры), среди элементов массива, начиная с номера 2K и с шагом +K. Вывести этот элемент.
Источник: www.programmersforum.ru