Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln('Нечетных двухзначнык: ',
a.Where(t->t.IsOdd and Abs(t).Between(10,99)).Count)
end.
<u>Пример</u>
n= 15
230 256 59 60 291 190 62 -234 -43 228 -154 62 -58 58 100
Нечетных двухзначнык: 2
Объяснение:
var s,n,d,e:integer;
m: string;
begin
writeln('Курс доллара?');
readln(d);
writeln('Курс евро?');
readln(e);
writeln ('Сколько рублей у посетителя?');
readln(n);
writeln ('доллар или евро?');
readln(m);
if m='доллар' then s:=n div d;
if m='евро' then s:=n div e
else writeln('Такой валюты нет');
writeln(s);
end.
Варианты могут быть разные
1) берем черного кота
2) связываем лапы
3) мажем всю шкуру осветлителем
4) ждем положенное время, слушая непрерывное мявканье
5) смываем осветлитель с кота
6) размешиваем хну с кипятком
7) мажем всю шкуру кота
8) ждем положенное время, слушая непрерывное мявканье
9) смываем хну с кота
10) развязываем лапы
должен получиться рыжый кот
но лучше так не делать) гринпис не одобрит
Думаю это ответ б. Потому что все остальные передают информацию.