Var
d: integer;
begin
read(d);
writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд');
end.
Информатику можно назвать наукой о компьютерной технике.
Информатика как наука занимается созданием информационного обеспечения того или иного объекта на базе компьютерных информационных систем.
arr = list(map(int,input("Введите числа: ").split(' ')))
neg = [n for n in arr if n < 0]
pos = [n for n in arr if n > 0]
print('Негативные числа: ', neg)
print('Положительные числа: ', pos)
Program outr;
var a,b,c:real;
begin
readln(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a+c>b) and (a+b>c) and (c+b>a) then
begin
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('треугольник прямоугольный');
end else
writeln('треугольник построить невозможно');
<span>end.</span>
Систем где обмениваются сообщениями(письмами) называется: Интернет