круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.
внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.
внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.
з.ы. у меня просто не хочет прикреплять рисунок.
Ответ дал: Гость
program m;
uses crt;
var a,b,c,sum: integer;
begin
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
end.
Ответ дал: Гость
вот проверила, так работает. нормально?
program maxmin; var a, b, c: integer; max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.
Популярные вопросы