zverevahelen
?>

СДЕЛАТЬ ИКТ Я НЕ МОГУ ПОНЯТ КАК ЭТО ДЕЛАТЬ (((

Информатика

Ответы

forwandy42

трагпчаропппгшпапргс тисппкгвчяагпссг

misie1974

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.

Александровна1973

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

СДЕЛАТЬ ИКТ Я НЕ МОГУ ПОНЯТ КАК ЭТО ДЕЛАТЬ (((
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

club-pushkin
balabina-Olesya
Vladimir1172
Natalya1895
morozov1605
okunevo2010
Yelfimova-andrei
o-kate17
Николаевич1033
Салиев
avdeevo
rigina82
dashkevich-76611
vasilevich-F
Kelena190533