Регистрация
алма15
06.07.2020 10:08
Информатика
Есть ответ 👍

Переведи 101001101 в 10 ую

217
424
Посмотреть ответы 3

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

Fo0lHardy
Fo0lHardy
4,4(39 оценок)

ответ: 333

Объяснение:

tanyainua
tanyainua
4,6(23 оценок)

ответ: 333

Объяснение:

эмсикалаш
эмсикалаш
4,6(95 оценок)
Программа может выглядеть так: uses crt; const n=10; var  a, i, sum: integer;         sred: real; begin clrscr; sum: =0; i: =1; while i< =10 do   begin     write ('a = ');     readln(a);     sum: =sum+a;     i: =i+1;   end;   sred: =sum/n;   writeln('sred = ', sred: 6: 2);   writeln; sum: =0; i: =1; repeat     write ('a = ');     readln(a);     sum: =sum+a;     i: =i+1;   until i> n;   sred: =sum/n;   writeln('sred = ', sred: 6: 2);   writeln; sum: =0; for i: =1 to n do   begin           write ('a = ');           readln(a);           sum: =sum+a;   end;   sred: =sum/n;   writeln('sred = ', sred: 6: 2);   readln;   end.

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