Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
Ответ:
Может быть опасный вирус.
Способы защиты: установить антивирус и сразу же обновлять операционную систему а не ждать полвека.
Могут тебя хакнуть.
Способы защиты: не говорить свой пароль любым знакомым даже лучшим друзьям. А также ставить надежные пароли а не 1 2 3 4 а например 8 5 6 7
Могут вычислить твой IP и доставать тебя в реальной жизни.
Способы защиты: поставить турбо VPN
Могут вычислить твой пин-код и снять все твои деньги
Способы защиты: не говорить свой пароль любым знакомым даже собственным родителям!!!!!!!!!!!!!!!!!!!!!
Обдурить тебя сказочкой Вы выиграли миллион доларов
Способы защиты: Удалять весь спам.
В строчке read('a'); апострофов быть не должно. Замени на read(a);
3
если остаток от деления числа Х на 3 равен 0 и остаток от деления числа Х на 6 НЕ равен 0, то....