круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.
внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.
внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.
з.ы. у меня просто не хочет прикреплять рисунок.
Ответ дал: Гость
program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]); writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.
Ответ дал: Гость
14
Ответ дал: Гость
var
a: integer;
begin
readln(n);
writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
end.
var
a: integer;
begin
readln(n);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
Популярные вопросы