Даны целые числа x, y, c. напишите программу, которая находит значение выражения x+y/2c и выводит на экран монитора результат.

Var a,b,c: integer;   summ: real; begin writeln('введите три целых числа через пробел (a b c)'); readln(a,b,c); summ: =a+b/(2*c); writeln(summ); end.

Var   commands: array [1..2] of byte;   buf: string; begin   writeln('формат ввода: (№ комманды)(пробел)(очки)');   writeln('например:     1 3');   writeln('№ о');   repeat     readln(buf);     if buf = '0' then break;     commands[integer.parse(buf[1])] += byte.parse(buf[3]);   until false;       writeln(string.format('команда {0} победила во счётом {1} очк.', commands[1] > commands[2] ? 1 : 2, max(commands[1], ; end.

Var   i, n, k: integer;   s, c: string; begin   writeln('введите текст');   readln(s);   n : = length(s);   k : = 0;   i : = n;   repeat       c : = copy(s, i, 1);       if (c = 'к') or (c = 'к') then k : = k + 1;       i : = i - 1;   until c = ' ';   writeln('в последнем слове буква "k" встречается ', k, ' раз(а)') end. результат прогона тестового примера в pascalabc.net: введите текст кукушка кукует, а петух - кукарекает! в последнем слове буква "k" встречается 3 раз(а)