В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
HaskyZ0nG
HaskyZ0nG
11.04.2023 14:46 •  Информатика

Как сделать цикл перевода из двоичной системы счисления в десятиричную ( побольше объяснений

Показать ответ
Ответ:
QwErTyля
QwErTyля
15.12.2022 10:23
Type mas=array[1..93] of real;
var i,w:byte;season:mas;t:real;

function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;

begin

repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;

writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);

writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);

writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);

writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.
0,0(0 оценок)
Ответ:
glupiychelovek
glupiychelovek
25.08.2021 16:21
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
 Write('Введите число A: '); 
Readln(a);
 Write('Введите число B: '); 
Readln(b); 
Write('Введите число C: '); 
Readln(c); 
If  a>=b then max:=a
 else 
 max:=b;   
 If c>max then
max:=c; 
r:=a+b+c;
 If (A>B) and (B>C) and (C>0) then
 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then
  begin   
A:=max;   
 B:=max; 
  C:=max; 
Writeln('A= ',a,' B= ',b,' C= ',c); 
   end   
else   
 Writeln('Symma: ',r);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота