var x, y : real; begin readln (x, y); if x < y then begin x := (x + y) / 2; y := 6 * abs (x - y); end else begin y := (y + x) / 2; x := 6 * abs (y - x); end; writeln (x, ' ', y); readln; end.
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
var i,jx,y:longint;
begin
read(x,y):
i:=x;
j:=y
if x<y then begin x:= (i+j) div 2; y:= 3*((i+y)div2);
if y<x then begin y:= (i+j) div 2; x:= 3*((i+y)div2);
writeln(x,' ',y);
end.