Информационный процесс - поиск информации
Решение задачи показано в прилагаемой таблице.
var s,k:integer;
Begin
read(k);
s:= k div 100 + k div 10 mod 10 + k mod 10;
writeln(s);
End.
Ответ:
program n1;
var time, seconds, minutes, hours: integear;
begin
readln(time);
seconds := time mod 60;
time := (time - seconds) / 60;
minutes := time mod 60;
time := (time - minutes) / 60;
hours := time;
writeln (hours, ' часов ', minutes, ' минут ', seconds, ' секунд');
end.
Объяснение:
Написано на языке Pascal
Uses crt;var x1,x2,x3,y1,y2,y3: real; begin cls; write('Координаты A: ');readln(x1,y1); write('Координаты B: ');readln(x2,y2); write('Координаты C: ');readln(x3,y3); write('Сумма AB+BC = ',(sqrt(sqr(x2-x1)+sqr(y2-y1)))+(sqrt(sqr(x3-x2)+sqr(y3-y2))):0:2);<span>end.</span>