Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(ReadlnString('Введите исходное число:')*2)
end.
<u><em>Тестовое решение</em></u>
Введите исходное число: 210345
210345210345
Замечание: контроль правильности ввода не выполняется.
#include <stdio.h>
int main(void) {
int a_8, a_10, a_5, b, c;
printf("Введите число в восьмеричной системе счисления: ");
scanf("%d",&a_8);
b = a_8;
a_10 = 0; c = 1;
while (b>0) {
a_10 += c*(b % 10);
c *= 8;
b /= 10;
}
b = a_10;
a_5 = 0; c = 1;
while (b>0) {
a_5 += c*(b % 5);
c *= 10;
b /= 5;
}
printf("%d(8) = %d(10) = %d(5)",a_8,a_10,a_5);
return 0;
}
Пример:
<span>Введите число в восьмеричной системе счисления: 2014
2014(8) = 1036(10) = 13121(5)</span>