IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> решение задач за деньги
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9

Репутация: -  0  +


1. Дан текст из слов, разделенных произвольным числом пробелов. Определить число слов, начинающихся на ту же букву, что и третье слово.
2. Дан текст из слов, разделенных произвольным числом пробелов. Распечатать слова, имеющие две подряд идущие одинаковые гласные.
3.Дан список жильцов по форме: *ФИО*год рождения*месяц*день рождения*
Распечатать в алфавитном порядке фамилии жильцов, которым к заданной дате исполнилось 18 лет. Использовать RECORD.
1. Дан текст из слов, разделенных произвольным числом пробелов. Определить число слов, начинающихся на ту же букву, что и третье слово.
2. Дан текст из слов, разделенных произвольным числом пробелов. Распечатать слова, имеющие две подряд идущие одинаковые гласные.
3.Дан список жильцов по форме: *ФИО*год рождения*месяц*день рождения*
Распечатать в алфавитном порядке фамилии жильцов, которым к заданной дате исполнилось 18 лет. Использовать RECORD.
Код
Program zad;
uses crt;
type
facts=record
 fam:string;
 name:string;
 otchestvo:string;
 birthday:integer;{god, mesjac, deni rojdenija}
      end;
const
n=3;
var
spludej:array[1..n] of facts;
person:integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
 begin
  writeln('vvedite dannie o ',i,' 4eloBeke');
  writeln('Familija ');
  readln(spludej[i].fam);
  writeln('Imja ');
  readln(spludej[i].name);
  writeln('ot4estBo ');
  readln(spludej[i].otchestvo);
  writeln('god, mesjac, deni rojdenija ');
  readln(spludej[i].birthday);
 end;
clrscr;
writeln('vvedite god, mesjac, deni rojdenija 4eloBeka');
readln(person);
clrscr;
for i:=1 to n do
if spludej[i].birthday=person
 then
   writeln(spludej[i].fam)
end.

необходима дороботка(а именно :алфавитный порядок и форма);
4. Дана таблица по форме: *ФИО*отметки о посещении 10-ти занятий (0-пропустил, 1-присутствовал)*оценки задач*
Сформировать таблицу: *ФИО*количество пропусков*средний балл*количество задач*зачёт(незачёт).
Зачёт ставится студентам, пропустившим не более 5 занятий, сделавших не менее 8 задач, в том числе №9 и №10, и имеющих не менее 4-х оценок "4" и "5". Использовать тип RECORD.
(это еще не все задачи)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Могу сделать <...> вырезано модератором.

Тут не доска объявлений, а автору было бы не плохо указать цену.

Сообщение отредактировано: klem4 -
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.10.2021 8:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name