Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, x, s : integer;
begin
write('введите число х=');
readln(x);
s: =0
i: =1
while i < =x do
s: =s+i;
i: =i+2
end;
write('сумма нечетных чисел ='; s);
readln
end.
у меня тоже даша получилось))
за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.
var x,y,h: real;
h: =2;
x: =1;
repeat
y: =5*x-2;
writeln(x: 5,y: 5);
x: =x+h;
until x> 20;
Популярные вопросы