var a:integer;
var s1,s2:string;
begin
inc(a);
write('Vvedite slovo: ');
readln(s1);
repeat
s2:=s2+s1[a];
a:=a+2;
until(a>length(s1));
writeln(s2);
readln;
end.
N=1280*960=1228800;
i=24 бита ;
V=n*i=1228800*24=29491200 бит=3686400 байт=3600 Кбайт
X = int(input())
y = int(input())
p = int(input())
p = <span> float (100 + p) / 100
</span>y = y + x * 100
<span>y = y * p
</span><span>x = int (y // 100)
</span><span>y = int (y % 100)
</span><span>print (x, y) </span>
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:
5
1
5
-1
-2
4
5
6
Пример вывода:
Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
В сказке Волк и семеро козлят, нужно было доказать, что пришла мама, а не волк
Пароль, ласковым голоском "Козлятушки, ребятишки отворитеся отопритесь ваша мама пришла, молочка принесла"