№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
#include <iostream>
using namespace std;
int main(){<span>
int a,s,d,f;</span><span>
setlocale(0,"");</span><span>
cout<<endl<<"Введите возраст Коли:";</span><span>
cin>>a;</span><span>
cout<<endl<<"Введите возраст Миши:";</span><span>
cin>>s;</span><span>
if (a>s && a>0 && s>0) {</span><span>
d=a-s;</span><span> f=(a+s)/2;</span><span>
cout<<endl<<"Коля старше Миши на: "<<d<<" лет"<<endl;</span><span>
cout<<"Средний возраст ребят: "<<f<<" лет"<<endl;</span><span>
}</span><span>
if (a<s && a>0 && s>0) {</span><span>
d=s-a;</span><span> f=(a+s)/2;</span><span>
cout<<endl<<"Миша старше Коли на: "<<d<<" лет"<<endl;</span><span>
cout<<endl<<"Средний возраст ребят: "<<f<<" лет"<<endl;</span><span>
}</span><span>
if (a<0 || s<0) {</span><span>
cout<<endl<<"Вы ввели отрицательное число"<<endl;</span><span>
}</span><span>
system ("pause");</span><span>
return 0;</span><span>}</span>
Var i:integer;
a: array[1..10] of integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
a[i]:=random(10)+1;
writeln('a[',i,'] = 'a[i]);
end;
writeln;
writeln('Индексы с нечетными значениями:');
for i:=1 to 10 do
if (a[i] mod 2 = 0) then write(i,' ');
end.
program abc;
var x,y:real;
begin
readln(x);
if x <= 0 then
begin
y:=x+4;
end;
if (x < 0) and (x <= 7.5) then
begin
y:=x*x+3;
end;
if x > 7.5 then
begin
y:=x+((sqrt(x))/2);
end;
writeln(y);
end.
3мин45с = 3.75мин
3.2 : 3.75 = 6.4 : 7.5 = 64:75
ответ 64/75 Гб/мин