Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
function fn(s:string):string;
var i:integer;
begin
i:=pos('минус',s);
while i>0 do
begin
delete(s,i,5);
insert('плюс',s,i);
i:=pos('минус',s);
end;
fn:=s;
end;
var b:string;
begin
readln(b);
write(fn(b));
end.
Пример:
минус + плюс - минус = 0
плюс + плюс - плюс = 0
const
n=30;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do begin
readln (a[i]);
if a[i]>=20 then min:=a[i];
end;
for i:=2 to n do
if (a[i]>=20) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
Есть ряд тонкостей, что бы выбрать себе компьютер, как можно дешевле, но с нужными вам возможностями. Конкуренция на рынке крайне велика и огромное количество не крупных, но проверенных и известных магазинов могут себе позволить по заказу клиента пере конфигурировать содержимое компьютера. Тем самым вы всегда можете сэкономить деньги урезав некоторые ненужные характеристики машины. А в будущем функционал всегда легко можно расширить, добавив или заменив устаревшие детали - сделать "апгрэйд". Заменив такие вещи, как видео карту (для обычной работы мощная карта не нужна), блок питания, поставить более объёмный жёсткий диск. Если вы решитесь выбрать компьютер таким способом, то сэкономите наличные, и в ближайшем будущем вам ничего не угрожает.