101010102-2528+716=101008290
//PascalABC.NET 3.2
begin
var x := ReadlnReal('x =');
var s := 3*x + 29 - 10*x;
if s > 25 then write(s)
else write('?');
end.
<span>Хранение информации.-На бумаге, в уме.
</span><span>Передача информации.- По телефону, письмом в конверте
</span><span>Поиск информации.-Спрашивать у друзей,знакомы или просто спросить дорогу у прохожего, также в автобусах и метро есть карты.
</span>
Запиши слова,выбирая буквыКо(л,лл)екцыя,ба(с,сс)ейн,б(и,е)речь,в(и,е)новат,во(ж,жж)и,а(п,пп)тит,су(б,бб)ота,п(и,е)сок,ин(и
Olga104916 [85]
Коллекция,бассейн,беречь,виноват,вожжи,аппетит,суббота,песок,иней,вокзал.
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.