1) Сколько ошибок допущено в программе? Найдите все ошибки и исправьте их Опишите их на естественном языке или с блок-схемы алгоритм преобразования исходных данных, используемый в данной программе.
program zadacha;
var a: integer;
begin
writeln (`введите целое число a`);
readln (a);
if a>0 then a:=a+1
writeln (` Полученное число` a)
end.
2) Определите выходные данные при заданных исходных данных:
входные данные: выходные данные:
-10 ?
0 ?
10 ?
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969