Program proizv;
var i, n, p:integer; a:array[1..10] of integer;
begin
p:=1;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(a[i]);
If a[i]<>0 then
p:=p*a[i];
end;
writeln('p=',p);
end.
program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
<u><em>Язык PascalABC</em></u>
386 <em>(10) </em>в двоичной - <span>110000010 </span><span><em>(2)</em></span><span>
</span><span>386 <em>(10)</em> в восьмиричной - </span>602 <em>(8)</em>
Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением
Ответ:
program Elevator;
var
n, k, a, b: Integer;
s: string;
begin
Write ('Введите n, k, a, b: ');
ReadLn (n, k, a, b);
WriteLn ('На лифте = ', (k + n - 2) * b, ' По лестнице = ', (n - 1) * a);
ReadLn;
end.
Объяснение:
по лестнице:
n - 1 этажей, а секунд на этаж, время = (n - 1) * a
n - 1 потому, что Миша находится на первом этаже, а не на нулевом
на лифте:
лифт едет на 1-этаж: k - 1
Миша едет к себе: n - 1
всего этажей = (k - 1) + (n - 1) = (k + n + 2)
общее время = (k + n + 2) * b
