write('введите в одной строке два целых числа и нажмите < enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a> b then writeln(a,' больше')
else writeln(b,' больше')
end.
Ответ дал: Гость
var a: array [1..10] of integer;
s,i,c,b: integer;
begin
read(c,b,n);
randomize;
for i : = 1 to n do
a[i]: = random(b) -c+1;
for i: = 1 to n do
if i mod 2 = 0 then s: =s+1;
writeln(s);
end.
Ответ дал: Гость
1) номера букв с начала алфавита - 16,5,20,25,17 с конца алфавита - 18,29,14,9, 17 сумма номеров для каждой буквы 34. в - 3+31, ц -24+10. и это для любой буквы 2) игра в города волгодонск, калуга
Популярные вопросы