Как не навредить себе при работе за компьютером? Определи количество ошибок поведения при работе за - id1782727220210712 от kiert 12.07.2021 09:23

Question

Информатика: Как не навредить себе при работе за компьютером? Определи количество ошибок поведения при работе за компьютером, которые ты видишь на рисунке. ошибок нет одна ошибка две ошибки три ошибки Назад Проверить ​

kiert · Accepted Answer

1)program p1;

var m,n: integer;

begin

write('вводите число: '); readln(n);

if n> =100 then

begin

m: = n mod 10;

writeln('последняя цира: ',m);

m: =n div 10 mod 10;

writeln('предпоследняя цира: ',m);

end;

end.

2)program p2;

var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;

vsr: real;

begin

write('вводите время езды(ч): '); readln(t1,t2,t3);

write('вводите скорость(км/ч): '); readln(v1,v2,v3);

d1: =v1*t1;

d2: =v2*t2;

d3: =v3*t3;

vsr: =(d1+d2+d3)/(t1+t2+t3);

writeln('средяя скорость= ',vsr: 1: 2,'км/ч');

end.

MOGZ ответил