Решение задач по Pascal

@PomaST · Регистрация: 15.08.2016

Студворк — интернет-сервис помощи студентам

Привет всем. Никогда не понимал информатику, а сейчас учусь в универе, и у нас тема идёт по информатике Pascal
Задали 3 задачи, которые понятие не имею как решать. Помогите кто может:

1. Вычислить 1/a!

2. Подсчитать количество нечетных цифр в записи натурального числа n.

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

Первая и вторая задачи решаются с помощью операторов цикла, поэтому при их решении нужно использовать два различных оператора цикла. Третья задача - на использование одномерных или двумерных массивов.
Помогите !

Добавлено через 9 минут
Редактировать не могу, поэтому пишу здесь: решается всё отдельно, извините за наглость

Добавлено через 1 час 16 минут
Нужно только блок-схему!

@APALoff · 25.11.2013, 16:35

1.

Pascal

Function GetDiv(a : Longint) : Real;
Begin
  If a>1 then GetDiv:=1/GetDiv(a-1) else GetDive:=1;
End;
...
Writeln(GetDiv(4):8:4);

@Soniyagfto · 25.11.2013, 16:44

Pascal

program test2;
var s:string;
k,i,n,j:integer;
begin
writeln ('введите натуральное число n');
readln (n);
s:=inttostr(n);
for i:=1 to length(s) do begin
j:=strtoint(s[i]);
if (j mod 2)<>0 then 
inc(k);
end;
writeln ('Кол-во таких цифр в записи',' ',k);
readln;
end.

Добавлено через 6 минут

Привет всем. Никогда не понимал информатику, а сейчас учусь в универе, и у нас тема идёт по информатике Pascal

Эээм, ты никогда не понимал информатику, а в универе (надеюсь, что не на информационной специальности) тебе вот так сходу дают рекурсию,строки(Ну можно обойтись и через while+div/mod) и записи?
"Я в шоке дорогая, дом сгорел, а ты живая..." (с)

@PomaST 1 / 1 / 0 Регистрация: 15.08.2016 Сообщений: 6
		1
	Решение задач по Pascal 25.11.2013, 16:17. Показов 2523. Ответов 2 Метки нет (Все метки) Привет всем. Никогда не понимал информатику, а сейчас учусь в универе, и у нас тема идёт по информатике Pascal Задали 3 задачи, которые понятие не имею как решать. Помогите кто может: 1. Вычислить 1/a! 2. Подсчитать количество нечетных цифр в записи натурального числа n. 3. Даны сведения о количестве забитых голов каждого футболиста команды в 3 матчах чемпионата. Проверить, сколько в команде есть футболистов забивавших голы в каждом матче Первая и вторая задачи решаются с помощью операторов цикла, поэтому при их решении нужно использовать два различных оператора цикла. Третья задача - на использование одномерных или двумерных массивов. Помогите ! Добавлено через 9 минут Редактировать не могу, поэтому пишу здесь: решается всё отдельно, извините за наглость Добавлено через 1 час 16 минут Нужно только блок-схему! 0

Опции темы