Решите 62 номер, пожалуйста) PascalABC)
5-9 класс
|
Scorpio377
07 июня 2013 г., 23:19:57 (10 лет назад)
Sofia098
08 июня 2013 г., 0:49:02 (10 лет назад)
var
a: array[0..1] of double;
n: integer;
s, t: string;
const eps = 0.001;
begin
a[1] := 1;
a[0] := 2;
n := 2;
s := '1 2 ';
repeat
inc(n);
a[n mod 2] := (a[(n+1) mod 2] + a[n mod 2])/2;
str(a[n mod 2], t);
s := s + t + ' ';
until abs(a[(n+1) mod 2] - a[n mod 2])<eps;
writeln('N = ', n);
writeln(s)
end.
Ответить
Другие вопросы из категории
дан массив из 8 элементов целого типа равный :-8,13,4,-6,7,10,-5.Напишите программу ,которая заменит все положительные числа на 1 ,а все отрицательные
увеличит на 10.Преобразованный массив вывести на экран в строчку через запятую
Сколько секунд потребуется модему передающему сообщение со скоростью 28800 бит/сек чтобы передать цветное растровое изображение 640 на 480 пикселей п
ри условии что используется палитра из 36 цветов, из 73 цветов?
Читайте также
Вы находитесь на странице вопроса "Решите 62 номер, пожалуйста) PascalABC)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.