М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ксюшка1521
Ксюшка1521
25.01.2021 12:09 •  Информатика

Практическая работа. определить расширение экрана монитора в dpi

👇
Открыть все ответы
Ответ:
gaviren
gaviren
25.01.2021
Program 1123;
type data = record     g: 0..3000;     mes: 1..12;     day: 1..31;     end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin               if day=32 then begin mes:=mes+1; day:=1; end;              end;
4,6,9,11: begin            if day=31 then begin mes:=mes+1; day:=1; end;          end;2: begin     if g mod 4=0 then begin                        if day=30 then begin mes:=mes+1; day:=1; end; end                 else begin                        if day=29 then begin mes:=mes+1; day:=1; end;                       end;
 end;
12: begin     if day=32 then begin g:=g+1; mes:=1; day:=1; end;    end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.
4,8(54 оценок)
Ответ:
zbbzk
zbbzk
25.01.2021
Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович        ', '1', '2', '3', '1', '5','3', '3', '2'),                                     ('Петров Петр Петрович        ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Сидаров Сидор Сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                             ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                     ('Сергеев Сергей Сергеевич    ', '2', '2', '5', '5', '5','5', '2', '3'),                                     ('Степанов Степан Степанович  ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Давыдов Давид Давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                             var sr:real; // средний     b:real;begin  writeln('');  writeln('|            ФИО             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');  writeln('');  for var i:=0 to 6 do begin   write('|'+mas[i,0]+'|');    sr:=0;   for var j:=1 to 8 do begin    write(' '+mas[i,j]+' |');    double.TryParse(mas[i,j],b); // строку в число    sr:=sr+b;   end;   sr:=sr/8;   write(sr:5:3);   write('|');   writeln;  end;  writeln('');  end.
4,6(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ