Паскаль
Program Pro;
var a:integer;
begin
for a:=1 to 3 do
writeln(random(3));
end.
Значение Y в операторе не меняется, поэтому Y как было, так и осталось = 28. Значение Х можно найти, рассуждая так: к какому числу надо прибавить 28 чтобы получилось 2? Очевидно, что это число = -26
Ответ: x=-26, y=28
program T;
const Pi = 3.14;
var C, R, S: real;
begin
writeln('Введите Радиус:');
readln(R);
C:= 2*Pi*R;
S:= Pi*sqr(R);
writeln('C = ', C, ', S = ', S);
end.
Немного не уверен в const, т.к. не пользуюсь этим, но поиграй там: поставь двоеточие, если не сработает. А так программа должна, в принципе работать. Только одно НО: у тебя неправильно на счёт integer, так как число пи - не целое, и программа выдаст ошибку.
Алгоритм произведения нечетных на интервале 1 - 11
Программа содержит три команды:
01(3)
01(1)
11(3)