Ответ:
Var a,b,x,f:integer;
Begin
Repeat
Read(a,x);
B:=random(7)-3;
Writeln('y=', sqr(a)+b*x);
Writeln('Ещё одно вычисление? Да(1) нет(0)');
Read(f);
Until f=0;
End.
Объяснение:
Решение в лоб для второй задачи.
<span>n = int(input())
m = int(input())
ticket = 0 <span># счетчик счастливых билетиков
</span>for i in range(int(n), int(m)+1)<span>:
</span> sum_check = 0 <span># проверочная сумма
</span> s = str(i) <span># создаем строку из нового билетика
</span> for j in range(len(s)): <span># проходим по всем числам
</span> if j%2 == 0: <span># если место числа четное
</span> sum_check += int(s[j]) <span># то прибавляем числа на этом месте
</span> else<span>:
</span> sum_check -= int(s[j]) <span># то отнимаем число на этом месте
</span> if sum_check == 0: <span># если контрольная сумма равна нулю, то билетик счастливый
</span> ticket +=<span>1
</span>print(ticket)</span>
var k:array[1..10] of integer;
var s:real;
var i:integer;
begin
for i:=1 to 10 do begin
k[i]:=round(10*random+3);
s:=s+k[i];
end;
write('Сумма массива = ', s);
writeln
end.
Должно работать, проверьте.
1) Ане нравятся уроки математики И химии
2) Ане нравятся уроки математики ИЛИ химии
3) Ане нравятся уроки математики И НЕ нравятся уроки химии
program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.