Это все ответы для Интернет урока за 8 класс Информатика.
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
Нужно написать программу как я понял:
Тебе нужно составить массив считающий сумму времени от первой строки до 40ой, первый элемент массива(arr[i]) = 1;
К каждому последующему элементу массива добавляешь 10%;
Создаешь еще одну переменную , допустим k = 0;
в нее записываем результаты;
arr[i]= arr[i]+ 10%;
k= k + arr[i];
, и все это нужно делать до времени i >=40;
Затем нужно вывести значение k;
Это и будет потраченное время
Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
var a,b,c,d:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
write('d = ');
readln(d);
writeln('X = ',(a*a+b*b)-c+d);
if (a*a+b*b)-c+d>0 then writeln(a,' + ',b,' = ',a+b)
else writeln(c,' + ',d,' = ',c+d)
end.