Ярешил узнать, какое сегодня число, и увидел, что завтрашний день в календаре обведён красным цветом. я вспомнил, что у кого-то из моих друзей день рождения (лида, максим, аркадий, борис и ольга). нужно узнать у кого из них день рождения. к концу дня мне удалось собрать немного информации о каждом из моих друзей. разобраться что к чему. у каждого друга есть своё любимое лакомство (зефир, мармелад, шоколад, печенье и яблоки), увлечение (цветы, куклы, одежда, спорт и техника) и место жительства. все они живут на разных планетах (эрида, хаумеа, церера, плутон, макемаке). у двух друзей день рождения в одно время года, у остальных – в разные. ⦁ ольга совершенно не разбирается в цветах и технике. ⦁ максим и лида родились в одно время года, но не зимой. ⦁ борис, хоть и родился весной, но предпочитает печенье яблокам. ⦁ аркадий любит фрукты. ⦁ ольга живёт к солнцу ближе, чем максим с лидой, но дальше, чем борис. ⦁ человек, который любит зефир, переедет на плутон, если там можно будет играть в футбол. ⦁ борис не переедет на плутон, так как там не умеют шить кукол. ⦁ максим остался жить на хаумеа только ради местного мармелада. ⦁ на макемаке хорошо растут цветы. ⦁ ольга не боится холода в отличии от аркадия, который родился в самое тёплое время года. ⦁ специалист по технике живёт на хаумеа, то есть ближе к солнцу, чем лида. ⦁ сейчас на улице зима. решите , определив любимое блюдо, увлечение, место жительства и время года, в которое родились друзья валеры
nn=50;
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
#include <iostream> //если не отображается, пиши после include - iostream в <>
using namespace std;
int main(){
for(int i=0;i<10;i++)
cout<<"Hello World";
cin.get();
cin.get();
return 0;
} 11.
#include <iostream> //если не отображается, пиши после include - iostream в <>
#include <string> //если не отображается, пиши после include - string в <>
using namespace std;
int main() {
string s,p;
cin>>s;
cin>>p;
if((p!="v") && (p!="g"))
return 66;
int n;
cin>>n;
if (p=="g"){
for(int i=0;i<n;i++)
cout<<s;
}
else
{
for(int i=0;i<n;i++)
cout<<s<<"\n";
}
cin.get();
cin.get();
return 0;
}