Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
Program p452; var a,b,m,d:integer; begin Write('Введите размеры форточки (а,b) в см: '); Read(a,b); Write('Введите диаметр головы Васи в см: '); Read(d); if a<b then m:=a+2 else m:=b+2; { +2 - это зазор по 1 см с обоих сторон } if d<=m then Writeln('Голова проходит') else Writeln('Голова не проходит') end.
Тестовое решение: Введите размеры форточки (а,b) в см: 25 40 введите диаметр головы Васи в см: 23 Голова проходит
program p453; var a,b,c,x,y,m1,m2,n1,n2:integer; begin Write('Введите размеры кирпича в см (a,b,c): '); Read(a,b,c); Write('Введите размеры отверстия в см (x,y): '); Read(x,y); if a<b then if a<c then begin m1:=a; if b<c then m2:=b else m2:=c end else begin m1:=c; m2:=a end else if b<c then begin m1:=b; if a<c then m2:=a else m2:=c end else begin m1:=c; m2:=b end; if x<y then begin n1:=x; n2:=y end else begin n1:=y; n2:=x end; if (m1<=n1) and (m2<=n2) then Writeln('Кирпич пройдет в отверстие') else Writeln('Кирпич не пройдет в отверстие') end.
Тестовое решение: Введите размеры кирпича в см (a,b,c): 10 4 12 Введите размеры отверстия в см (x,y): 5 9 Кирпич не пройдет в отверстие
program p454; var a,b:integer; begin Write('Введите значения а и b: '); Read(a,b); Writeln('Размеры чемодана ',3*a,'x',2*a,'x',a); Writeln('Размеры коробки ',3*b,'x',2*b,'x',b); if b<a then Writeln('Коробка поместится в чемодан') else Writeln('Коробка не поместится в чемодан') end.
Тестовое решение: Введите значения а и b: 18 16 Размеры чемодана 54x36x18 Размеры коробки 48x32x16 Коробка поместится в чемодан
Crt;
var
i,n:integer;
a,s:real;
begin
Writeln('Вычисление среднего арифметического');
Writeln('последовательности действительных чисел');
Write('Введите количество чисел последовательности ->');
Readln(n);
Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln('Среднее арифметическое введенной последовательности: ',s/n);
Write('Для завершения работы программы нажмите Enter');
Readkey
end.
Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net:
var
i,n:integer;
a,s:real;
begin
Writeln('Вычисление среднего арифметического');
Writeln('последовательности действительных чисел');
Write('Введите количество чисел последовательности ->');
Readln(n);
Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.