1составить схему отношений между объектом и объектом по сказке курочка ряба,2 ,3 фрагмента в виде таблицы 3 изобразить рисунок когда кто то кем то .2- представить 2,3 фрагмента в виде таблицы
Начало ↓ Жили-были дед и баба ↓ И была у них курочка ряба ↓ снесла курочка яичко не простое а золотое ↓ Дед бил-бил не разбил ↓ | ↓ Баба била-била не разбила | яичко упало и | разбилось ↓ | ↓ Мышка бежала хвостиком махнула | Дед плачет Баба п | плачет || ↓ А курочка ряба кудахчет ↓ Конец
type data = record number : 1..31; month : 1..12; year : 1901..1997 end;
var d:array[1..nn] of data; i,n,k:integer; s,s1,s2,s3:string; begin Write('Количество дат (1..50)-> '); Read(n); Writeln('Введите через пробел день, месяц, год: '); for i:=1 to n do Read(d[i].number,d[i].month,d[i].year); { a } Write('Самый ранний из годов: '); k:=d[1].year; for i:=2 to n do if d[i].year<k then k:=d[i].year; Writeln(k); { б } Writeln('Все весенние даты'); for i:=1 to n do if d[i].month in [3..5] then Write(d[i].number,'.',d[i].month,'.',d[i].year,' '); Writeln; { в } Write('Cамая поздняя дата: '); Str(d[1].year,s1); Str(d[1].month,s2); Str(d[1].number,s3); if Length(s2)=1 then s2:='0'+s2; if Length(s3)=1 then s3:='0'+s3; s:=s1+s2+s3; for i:=2 to n do begin Str(d[i].year,s1); Str(d[i].month,s2); Str(d[i].number,s3); if Length(s2)=1 then s2:='0'+s2; if Length(s3)=1 then s3:='0'+s3; if s<s1+s2+s3 then s:=s1+s2+s3 end; Writeln(Copy(s,7,2)+'.'+Copy(s,5,2)+'.'+Copy(s,1,4)) end.
Тестовое решение: Количество дат (1..50)-> 6 Введите через пробел день, месяц, год: 18 4 1950 16 5 1968 5 8 1970 3 9 1968 11 6 1964 16 12 1967 Самый ранний из годов: 1950 Все весенние даты 18.4.1950 16.5.1968 Cамая поздняя дата: 05.08.1970
Вариант 1 var str:string; A,B,i:integer; begin write('введите ваш текст'); readln(str); for i:=1 to length(str) do begin if (str[i]='А')or (str[i]='а') then a:=a+1; if (str[i]='Б')or (str[i]='б') then B:=b+1; end; if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b); end.
вариант 3 var str:string; A,B,i:integer; begin write('введите ваш текст'); readln(str); i:=1; while i<=length(str) do begin if (str[i]='А')or (str[i]='а') then delete(str,i,1); i:=i+1; end; write(str); end.
↓
Жили-были дед и баба
↓
И была у них курочка ряба
↓
снесла курочка яичко не простое а золотое
↓
Дед бил-бил не разбил
↓ | ↓
Баба била-била не разбила | яичко упало и
| разбилось
↓ | ↓
Мышка бежала хвостиком махнула | Дед плачет Баба п | плачет
|| ↓
А курочка ряба
кудахчет
↓
Конец