Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 58
1

Можите проверить задачу?

28.12.2011, 03:24. Показов 765. Ответов 1
Метки нет (Все метки)

Дано натуральное k. Напечатать k-ю цифру последовательности 24681012141618202224262830..., в которой выписаны подряд все натуральные четные числа




Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses crt;
var a:array [1..15] of integer;
i,k,j:integer;
begin
Write('K = ');readln(k);   // Вводим число K
Writeln('Массив: ');
Repeat                              // цикл для перебора всех эл-тов одномерного массива
j:=j+2;
inc(i);                             // увеличиваем I на 1
a[i]:=j;                          // присваем i-му эл-ту массива , значение перменной J
until i=15;
For i:=1 to 15 do          // цикл для перебора всех эл-тов одномерного массива
write(a[i],' ');              // выводим i-й эл-т массива
Writeln; Writeln;
Write(k,'-я цифра последовательности = ',a[k]);       // выводим k-й эл-т массива
end.
Добавлено через 7 минут
можит кто то решить не через масив...?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2011, 03:24
Ответы с готовыми решениями:

а можите усовершенствовать
что бы матрицы вводились не радномно а каждый элемент пользователем : uses crt; const n=5;...

проверить задачу
Дано 10 вещественных чисел, которые вводятся по одному. Вычислить среднее арифметическое...

проверить задачу на ошибки
Даны вещественные массивы F, M.Для каждого массива определить произведение положительных элементов...

Проверить задачу на косяки
Задача как раз на проверку простых чисел. В виду того, что нуб в этой теме не понимаю как сделать...

1
тыдыщ
206 / 189 / 166
Регистрация: 19.01.2011
Сообщений: 481
28.12.2011, 09:04 2
без массива только вводя 15 переменных
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2011, 09:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как проверить задачу
имеется задача - определить удельную проводимость собственного и примесного полупроводника при...

Можите написать 3 проги на С(4.20 5.20 6.20)
Я просто не особо понимаю язык С,помогите написать мне их пожалуйста. Зарание спасибо.

Поможите чем можите :)
Доброе время суток всем!Дяденьки потимизаторы,дайте бедному ламеру пару рекомендаций по сайту кому...

проверить задачу на правильность решения
Задача не доделана до конца, но интересует правильность решения А вот и сама задача Очень...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.