Задание 2 Найдите количество секунд по заданному количеству минут (с=60*m)
Сколько нужно заплатить за электроэнергию, если потребитель использовал в этом месяце Н кВт/ч, а стоимостью 1 кВт/ч составляет 17,79 ТГ. составьте программу
Если первый ученик за час может собрать х вёдер яблок, второй у вёдер, а третий z вёдер, то сколько вёдер яблок они соберут за t часов? составьте программу
БЫСТРЕЕ ​

Спорт денсаулық үшін өте пайдалы болып табылады. Спортпен шұғылдану арқылы біз мықты, шыдамды боламыз және денсаулығымызды нығайтамыз. Біздің мінезіміз шыңдалады, өйткені біз өзімізді жеңуге үйренеміз, сабақ кезінде ауырсынуға жол береміз, мұның бәрі біздің күшімізді дамытады. Көптеген спорт түрлері бар. Жазда біз велосипедпен жүре аламыз, футбол мен волейбол ойнай аламыз, өзен мен көлде жүзе аламыз балалар мен жасөспірімдер скейтборд пен скутермен жүре алады. Ал қыста сіз шаңғы жарыстарымен айналыса аласыз, бір-бірімен жарыса аласыз, конькимен жүгіре аласыз, мәнерлеп сырғанаумен, шаңғымен сырғанаумен айналыса аласыз. Қыста да, жазда да денсаулығыңызға қамқорлық жасау керек. Өйткені, дені сау адам ғана толықтай оқып, жұмыс істей алады, сондықтан бізге сүйікті спорт түрімен белсенді айналысып, физикалық тұрғыдан дамуымыз керек. Спорт-бәрінің басы!

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.