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


анна: моего малыша зовут денис, а кирилл – сын ирины.


ирина: моего сына зовут максим, а кирилл сын анны.


ольга: мой мальчик кирилл, а сына анны зовут максим.


каждая из них один раз сказала правду и один раз солгала.


как зовут мальчиков анны, ирины и ольги? решите плз, по законам логики. просто ответы не нужны, нужно решение методом исключение, должно быть рассуждение!

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i: integer;

begin

for i: =1 to n do

writeln('ваше имя');

end.

пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). ещё хочу отметить, что имя вводится по- и нельзя терять апострофы ( ' ).

2. program sum;

var sum: integer;

m: array[1..4] of integer;

i: integer;

begin

m[1]: =6

for i: =2 to 4 do begin

m[i]: =m[i-1]+1;

end;

sum: =m[1];

for i: =2 to 4 do begin

sum: =sum+m[i];

end;

writeln(sum);

end.

пояснения: можно было делать и по-другому, но так тоже верно. тут использовалось два цикла и массив. а блок-схему сами

3. program n! ;

var n: real;

c: integer;

m: array[1..n] of integer;

begin

readln(n)

m[1]: =1;

for i: =2 to n do begin

m[i]: =m[i-1]+1;

end;

c: =m[1]

for i: =1 to n do begin

c: =c*m[i];

end;

writeln('n! ',c);

end.

если что не понятно, пишите, объясню

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа