Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
a, d : real
s: array[1..20] of real;
begin
write('введите n-');
readln (n);
write('введите а=');
readln(a);
write('введите d=');
readln(d);
s[1]: =a;
for i: =2 to n do
s[i]: =a+d;
write('арифметическая прогрессия: ');
for i: =1 to n do
write(s[i]);
end.
var x,x1: integer;
s: string;
read(x);
s: =str(x);
x1: =int(s[3]+s[2]+s[1]);
writeln(x-x1);
гласные звуки иероглифами не передавались.
1) номера букв с начала алфавита - 16,5,20,25,17 с конца алфавита - 18,29,14,9, 17 сумма номеров для каждой буквы 34. в - 3+31, ц -24+10. и это для любой буквы 2) игра в города волгодонск, калуга
Популярные вопросы