Может указать номер букв в алфавите? К примеру А-1;б-2;в-3 и т.д. 33, 2,21,5,21 ...
Я-33,
Б-2;у-21,д-5;у-21
Ну а дальше допишешь)
// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035
Ответ:
ofstream fout("rez.txt");
fout << "privet";
Объяснение:
выводит "fout"
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
Var c:real
begin
readln(c);
c:=c*2;
writeln(c);
end.