40 ! 1. дано целое число n больше или равно 100. составить блок-схему и написать программу получения последней и предпоследней цифр записи этого числа (паскаль) 2. автомашина шла t1 ч. со скоростью v1 км/ч., t2 ч. со скоростью v2 км/ч и t3 ч. со скоростью v3 км/ч. найти среднюю скорость движения автомашины на всем пути. составить схему паскаль и программу паскаль.
241
477
Ответы на вопрос:
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.
Var i,n: integer; begin readln(n); k: =5; for i: = 0 to n if (i mod 5=0) then k: =k+i; writeln(k); end.
Популярно: Информатика
-
shabdanova1614.08.2022 22:36
-
sevliekaterina225.09.2021 07:02
-
Dffc17.01.2023 08:50
-
аишамамедова24.02.2021 13:37
-
TRINDES201701.01.2023 03:42
-
benleo200121.03.2021 16:40
-
Юлька160616.02.2020 16:28
-
esnira109837616.09.2022 23:10
-
morcowqwerty06.09.2020 00:50
-
Тппсхп23.10.2022 22:41