Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ввод x = 1, y = 3
x = 3 - 1= 2
y = 2 * 2 = 4
x = 2 * 4 + 2 = 10
y = 4 + 10/2 = 9
вывод x = 10, у = 9
ответ. в результате работы программы получим: х = 10, у = 9.
var
n: integer;
begin
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
end.
если n это количество чисел, начинаем с 3
i,n,p: integer
i: =3;
p: =1;
while i< =3*n do
p: =p*i;
i: =i+3;
end;
writeln(p);
если n это верхняя граница чисел
for i: =3 to n
if i mod 3 = 0 then
1)
var a,b,c,d: real;
read(a,b);
c: =(a+b)/2;
d: =2*a*b;
if a> b then begin
a: =d;
b: =c;
if a< b then begin
a: =c;
b: =d;
writeln(a,' ',b);
2)
var a,b: integer;
if (a< 1) or (a> 31) then writeln(' день введен неправильно');
if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');
3)
var a,b,c: real;
read(a,b,c);
if (a> b)and(a> c)then writeln(a);
if (b> a)and(b> c)then writeln(b);
if (c> b)and(c> a)then writeln(c);
Популярные вопросы