using System;
using System.Collections.Generic;
namespace App {
internal class Program {
private static void Main() {
Console.Write("Сколько элементов будем вводить? n = ");
var n = Convert.ToInt32(Console.ReadLine());
var a = new List<int>();
for (var i = 0; i < n; i++) {
Console.Write("Элемент номер {0} = ", i);
a.Add(Convert.ToInt32(Console.ReadLine()));
}
Console.WriteLine("Среднеарифметическое = {0}", Average(a));
Console.ReadKey();
}
public static double Average(List<int> a) {
var sum = 0.0;
foreach (var t in a) {
sum += t;
}
return sum / a.Count;
}
}
}
- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
Двоичная: 1000000001, 1001011000, 100001010, 10000111111100
Шеснадцатиричная: 201, 258, 10а, 21fc
Восьмиричная: 1001, 1130, 412, 20774
<span>
</span>
Вот на Pascal (Console Aplication) :
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
<span>end.</span>