Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачи:
1) С клавиатуры вводятся 3 целых числа. Определите количество положительных чисел в этом наборе.
2) С клавиатуры вводится натуральное число n. Вычислите сумму S=1+2+...+n.
3) Заполните элементы массива последовательностью чисел:2,5,10,17,26,...

Ответ оставил Гость

1) program fagasg;
var a,b,c,d: integer;
begin
Writeln(Введите первое число);
readln(a);
Writeln(Введите второе число);
readln(b);
Writeln(Введите третье число);
readln(c);
d:=0;
If a>0 then d:=d+1;
If b>0 then d:=d+1;
If c>0 then d:=d+1;
Writeln(Количество положительных чисел:,d);
end.
2) program gsggdfd;
var n,s,i: integer;
begin
writeln(Введите n);
readln(n);
s:=0;
For i:=1 to n do 
S:=s+i;
Writeln(Сумма последовательности равна:,s);
end.
3)Program afsdgf;
var A: Array[1..100] of integer;   
i,h,s,l: integer;
begin 
Writeln(ведите размер массива); 
readln(h); 
s:=1; 
l:=1; 
For i:=1 to h do   
begin     
A[i]:=s+l;     
s:=s+2;     
writeln(A[i]);     
l:=A[i];   
end;
end.