Пятеро юношей: эдуард, ричард, майкл, юджин и томас, придя на вечеринку встретили своих сестер: джейн, - id955781920200603 от bbezza66 03.06.2020 07:10

Question

Информатика: Пятеро юношей: эдуард, ричард, майкл, юджин и томас, придя на вечеринку встретили своих сестер: джейн, маргарет, лилиан, анну, хлою. определите родственные связи между молодыми людьми, если известно, что юноши не являются родственниками и каждый брат имеет одну сестру. чтобы запутать присутствующих, каждый из юношей высказал одно истинное и одно ложное утверждение. эдуард сказал: «моя сестра – анна, а сестра майкла – джейн». ричард сказал: «сестра юджина – маргарет, а моя - анна». юджин сказал:

bbezza66 · Accepted Answer

Var n:integer;
begin;
readln(n);
case n of
0:writeln('zero');
1:writeln('one');
2:writeln('two');
3:writeln('three');
4:writeln('five');
6:writeln('six');
7:writeln('seven');
8:writeln('eight');
9:writeln('nine');
else writeln('Some number');
end;
end.
2.var n:integer;
begin;
readln(n);
case n of
1:writeln('January');
2:writeln('February');
3:writeln('March');
4:writeln('April');
5:writeln('May');
6:writeln('June');
7:writeln('July');
8:writeln('August');
9:writeln('September');
10:writeln('October');
11:writeln('November');
12:writeln('December');
else writeln('Some number');
end;
end.

MOGZ ответил