Маша подарила лото, Жанна подарила цветы, Таня подарила раскраску, а Оля-куклу. Задача решается методом исключения.
По 1-му пункту: Маша и Жанна не дарили куклу и раскраску
по 2-му пункту Оля не дарила лото, раскраску и цветы
по 3-му пункту Маша не дарила цветы
Надеюсь, что всё понятно
По длинам сторон пятиугольника на Паскаль ABC:
Program P5;
var a1,a2,a3,a4,a5:real;
begin
writeln('Введите длины сторон');
readln(a1,a2,a3,a4,a5);
writeln('Периметр пятиугольника = ', a1+a2+a3+a4+a5);
end.
Var a:array [1..20] of integer;
i,k,s:integer;
begin
k:=25;
for i:=1 to 20 do
begin
a[i]:=k;
k:=k+2
end;
for i:=2 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln (a);
writeln (s)
end.
В ячейке D выйдут результаты, полученные по формулам из столбца С.
В D1: 135 (результат сложения чисел 110 и 25)
В D2: 100 (чисел 45 и 55)
В D3: 180 (чисел 120 и 60)
вроде бы как правильно...