Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.
// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035
Может операционная система? Операционная система -это комплекс системных программ, обеспечивающих совместное функционирование всех устройств компьютера, и поддерживающий работу всех его программ
Это выводит в какой по номеру день опаздало наибольшее количество учеников (1-пн, 2-вт и т.п.)
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB 1