Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.
Const
USD=64.05; // Официальный курс доллара США к рублю на 08.07.2016
EUR=70.95; // Официальный курс евро к рублю на 08.07.2016
var
RUR:real; // сумма в российских рублях
begin
Writeln('Введите сумму в российских рублях: ');
Read(RUR);
Writeln('В долларах США: ',RUR/USD:0:2);
Writeln('В евро: ',RUR/EUR:0:2);
end.
<u><em>Тестовое решение:</em></u>
Введите сумму в российских рублях:
15200.76
В долларах США: 237.33
В евро: 214.25
1) Скорее всего "завершить"
2) "ползунок" (Полосы прокрутки)
3) "экспорт"
4) строка "состояния"
5) панель "инструментов"
A(3)=a+2q
a(13)=a+12q
a(23)=a+22q
оригинальная формула:
a(n)=a(1)+d(n-1)
Чтобы найти сумму надо:
S(n)=((a(1)+a(n))/2)*n
2\3 диска я так думаю но это не точно