Регистрация
Кипарисный
20.07.2021 09:15
Информатика
Есть ответ 👍

ИНФОРМАТИКА
Исправить все ошибки в команде c максимальным сохранением смысла написанного:
for 3<=i<=7 then a=a\5;

275
364
Посмотреть ответы 2

Ответы на вопрос:

jelyrotos
jelyrotos
4,5(52 оценок)

А что вы вообще имели ввиду? Сначала подобие массив, потом неизвестно что, но похожее на условие

mixtecstures
mixtecstures
4,6(29 оценок)
1. var  a,b,c,d: real;   begin  read(a,b);   writeln((b-a)/(2012-1904));   end.2.  var  a: integer; begin readln(a); if  (a  mod  4  =  0)  and  (a  mod  100< > 0)  or  (a  mod  400=0)  then writeln('yes')  else writeln('no'); end.3.  var  n,b: real;   d,t: longint;   begin  read(t,n,b);   for d: =1 to t do  begin  n: =n*(1+b/100);   end;   writeln(n);   end. 4. var  n,b,o: real;   d,t,k: longint;   begin  read(n,b);   o: =n;   while n< o*2 do  begin  n: =n*(1+b/100);   inc(k);   end;   writeln(k);   end.

Популярно: Информатика