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.
{
программа, вычисляющая площадь прямоугольника.
}
var
a,b: real;
begin
write('Стороны прямоугольника ');
read(a,b);
writeln(' Площадь фигуры = ',a*b:10:3);
end.
Тестовое решение:
Стороны прямоугольника 5.3 6.7
Площадь фигуры = 35.510
{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
a,i,n: integer;
begin
for i:=1 to 3 do begin
write(i,'число = ');readln(a);
if a>0 then n:=n+1;
end;
writeln(' Положительных :',n);
end.