С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Найти значение функции https://www.cyberforum.ru/ pascalabc/ thread1235821.html
var x,y:real; begin read(x); x:=abs(x); if x<3 then y:=x+((SQR(x)-25)/3); 		Найти N-e число Фибоначчи Pascal ABC
Последовательностью Фибоначчи называется последовательность чисел a0, a1, ..., an, ..., где a0 = 0, a1 = 1, ak = ak-1 + ak-2 (k > 1). Входные данные: Во входном файле записано целое число N (0 ≤ N ≤ 32). Выходные данные: В выходной файл выведите N-е число Фибоначчи. Пример входного файла (input.txt): 4 Пример выходного файла (output.txt):
Pascal ABC Написать программу, которая подсчитает количество совпадающих картинок после остановки всех трех дисков Однажды начинающий программист Иннокентий решил написать программу, имитирующую однорукого бандита. Как читателю известно, это игровой автомат, в котором некоторое время вращаются 3 игровых дисках. Через какое-то время они останавливаются и выигрыш игрока зависит от количества совпавших картинок на центральном табле. Иннокентий никак не мог разобраться, как подсчитать количество одинаковых... https://www.cyberforum.ru/ pascalabc/ thread1235748.html Pascal ABC Определить, сколько голов через T часов останется у змея Горыныча Илья Муромец, собрался биться со змеем Горынычем. До начала боя у Горыныча было G голов. Илья Муромец в первый час срубил одну голову, но на ее месте выросло 3 новых. Каждый последующий час богатырю удавалось срубить в двое больше голов, чем в предыдущий, но как и раньше, на месте каждой срубленной головы выростало 3 новых. Сколько голов через T часов останется у змея Горыныча. Входные данные:... https://www.cyberforum.ru/ pascalabc/ thread1235734.html
Pascal ABC Требуется посчитать сумму целых чисел от 1 до N
Требуется посчитать сумму целых чисел от 1 до N. Входные данные: В единственной строке входного файла INPUT.TXT записано единственное целое число N, не превышающее по абсолютной величине 10000. Выходные данные: В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число - сумму чисел от 1 до N. Пример входного файла (input.txt): 5 Пример выходного файла... 		Pascal ABC Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик https://www.cyberforum.ru/ pascalabc/ thread1235679.html
X девочек и Y мальчиков пошли в кинотеатр и купили билеты на один ряд. Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик и рядом с одним мальчиком сидела хотя бы одна девочка. вроде правильно var q, w: integer; e: boolean; r: Text; begin Assign(r,'input.txt'); Reset(r); Readln(q,w);
Pascal ABC Является ли заданное целое трехзначное число симмитричным относительно средней цифры https://www.cyberforum.ru/ pascalabc/ thread1235595.html
Проверить, является ли заданное целое трехзначное число симмитричным, относительно средней цифры. 		Вычислить корень квадратный суммы двух заданных вещественных чисел Pascal ABC
Вычислить корень квадратный суммы двух заданных вещественных чисел a и b. Входные данные: Во входном потоке в первой строке задано два положительных вещественных числа. Выходные данные: Вывести в выходной поток одно вещественное число с точностью три знака после запятой. Пример входного файла (input.txt): 5.5 2.5 Пример выходного файла (output.txt):
Pascal ABC На сколько зарплата самого высокооплачиваемого сотрудника отличается от самого низкооплачиваемого В отделе работают 3 сотрудника, которые получают заработную плату в рублях. Требуется определить: на сколько зарплата самого высокооплачиваемого из них отличается от самого низкооплачиваемого. https://www.cyberforum.ru/ pascalabc/ thread1235588.html Pascal ABC Вывести значение каждого третьего четного элемента последовательности, начиная с первого Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента). Входные данные: Во входном потоке в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов последовательности... https://www.cyberforum.ru/ pascalabc/ thread1235586.html
Pascal ABC Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a:=10*sin(N+i*i). Элементы массива нумеруются с единицы. Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R с центром в начале координат, если значения элементов А и А - координаты первой точки, элементов А и А - второй точки и т. д. 		Pascal ABC Вычислить значение выражения: найти ошибку https://www.cyberforum.ru/ pascalabc/ thread1235413.html
не вижу ошибки var r,a,x,b:integer; begin read(a,b,x); r:=(sin/cos)*(sin/cos)*((0.9*a*a)/(x*(a+b))); write(r); end.
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
0

Вычислить количество элементов числовой последовательности, в записи значения которых есть только одна цифра 5 - Pascal ABC - Ответ 6471779

29.07.2014, 14:41. Показов 2694. Ответов 6
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Вычислить количество элементов числовой последовательности, в записи значения которых содержится только одна цифра 5.
Входные данные:
Во входном потоке в первой строке задано число элементов целочисленной числовой последовательности N (N <= 100), во второй строке - записаны через пробел двухзначные значения элементов числовой последовательности.

Выходные данные:
В выходной поток вывести единственное целое число.

Пример входного файла (input.txt):
5
11 25 30 50 46
Пример выходного файла (output.txt):
2
вот что написал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var
  i,a,n:integer;
  f1,f2:text;
begin
  assign(f1, 'input.txt'); reset(f1);
  assign(f2, 'output.txt'); rewrite(f2);
  readln(f1,n);
  for i:=1 to n do
  begin
    read(f1,a);
    if (a <> 55) and ((a mod 10 = 5) or (a div 10 = 5)) then writeln(f2, a);
  end;
  close(f1);
  close(f2);
end.
ошибку выдает проверяющяя система

Вернуться к обсуждению:
Вычислить количество элементов числовой последовательности, в записи значения которых есть только одна цифра 5 Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 29.07.2014, 14:41
Готовые ответы и решения:

Вывести элементы числовой последовательности, в записи значения которых содержится только одна цифра 5
Вывести элементы числовой последовательности, в записи значения которых содержится только одна...

Вычислить сумму элементов числовой последовательности, в записи значения которых содержится цифра 5
Вычислить сумму элементов числовой последовательности, в записи значения которых содержится цифра...

Вычислить сумму элементов числовой последовательности, в записи значения которых не содержится цифра 5
Вычислить сумму элементов числовой последовательности, в записи значения которых не содержится...

Вычислить сумму элементов числовой последовательности, в записи значения которых содержится цифра 5
var a,i,s,n:integer; begin s:=0; read(n); for i:=1 to n do begin read(a); if (a mod...

6
29.07.2014, 14:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 29.07.2014, 14:41
Помогаю со студенческими работами здесь

Вывести элементы числовой последовательности, в записи значения которых не содержится цифра 5
Вывести элементы числовой последовательности, в записи значения которых не содержится цифра 5....

Вывести элементы числовой последовательности, в записи значения которых содержится цифра 5
Входные данные: Во входном потоке в первой строке задано число элементов целочисленной числовой...

Вычислить сумму элементов числовой последовательности, в записи значения которых содержится две разные цифры
Вычислить сумму элементов числовой последовательности, в записи значения которых содержится две...

Вычислить среднее арифметическое значение элементов числовой последовательности, в записи значения которых содержится две различные цифры
ычислить среднее арифметическое значение элементов числовой последовательности, в записи значения...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru