Решить задачу двумя способами: с использованием цикла с параметром и одного из двух других циклов.
5-9 класс
|
Номер 9.
var
i,n:integer;
s:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
s:=s+(i+1)/i;
writeln('S=',s);
end.
var
i,n:integer;
s:real;
begin
write('Введите n: ');
readln(n);
i:=1;
repeat
s:=s+(i+1)/i;
i:=i+1;
until i>n;
writeln('S=',s);
end.
Другие вопросы из категории
program abc;
var a: array of integer;
begin
a[0] := 2;
Читайте также
«Yes». В противном случае вывести «No». Решить данную задачу двумя способами, используя циклы с пред и пост условиями.
Определить, есть ли в последовательности число 77. Если такое число
есть, то вывести «Yes». В противном случае вывести «No». Решить данную
задачу двумя способами, используя циклы с пред и пост условиями.( в ПАСКАЛЕ)
Решите задачу с помощью рассуждения (рассуждения присылать тоже)
Задача: В одном доме живут 3 товарища: Вася, Боря и Дима.
Один из них играет в футбол, другой пишет стихи, а третий лучше всех играет в шахматы.
Известно : 1-ВАсин друг с огорчением сказал "Вчера я не сумел реализировать пинальти" 2-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)
скрылся с места аварии.
1) Первый из опрошенных свидетелей сказал работникам ГАИ, что это были “Жигули”, первая цифра номера машины — единица.
2) Второй свидетель сказал, что машина была марки “Москвич”, а номер начинался с семёрки.
3) Третий свидетель заявил, что машина была иностранная, номер начинался не с единицы.
а) Дано квадратное уравнение. Найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров.
б) Найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процедурой.