2. В древнем мире при счете большого количества предметов для обозначения определенного их количества применяли зарубку на палочке. Определите первое Вычислительное устройство, в котором стал применяться этот метод. А. Пальцы В. Счеты С. Абак
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.
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.
#include <iostream>
#include<vector>
using namespace std;
int square(int x){
for (int i = 1; i <= 45; ++i){
if (i * i <= x){
continue;
}
return (i - 1) * (i - 1);
}
}
int main()
{
int x, y, xwas, ywas, xywas;
cin >> x >> y;
xwas = square(x);
ywas = square(y);
xywas = square(x + y);
if (xwas + ywas < xywas){
cout << "Petya gives paint to Vasya";
}
else if (xwas + ywas == xywas){
cout << "Equal";
}
else {
cout << "Petya leaves paint to himself";
}
return 0;
}#include <iostream>
#include<vector>
using namespace std;
int square(int x){
for (int i = 1; i <= 45; ++i){
if (i * i <= x){
continue;
}
return (i - 1) * (i - 1);
}
}
int main()
{
int x, y, xwas, ywas, xywas;
cin >> x >> y;
xwas = square(x);
ywas = square(y);
xywas = square(x + y);
if (xwas + ywas < xywas){
cout << "Petya gives paint to Vasya";
}
else if (xwas + ywas == xywas){
cout << "Equal";
}
else {
cout << "Petya leaves paint to himself";
}
return 0;
}
Объяснение: