Хранение информации.-На бумаге, в уме.
Передача информации.- По телефону, письмом в конверте
Поиск информации.-Спрашивать у друзей,знакомы или просто спросить дорогу у прохожего, также в автобусах и метро есть карты.

0 0

4 года назад

1) с клавиатуры вводится строка символов состоящая из заменить все буквы в слов, последнем слове на восклицательные знаки 2)С кл

rgrgrtgg

1)
(Слова разделяются одним пробелом)
var s:string;
l,i:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
i:=l;
while s[i]<>' ' do
begin
s[i]:='!';
i:=i-1;
end;
writeln(s);
end.

Пример:Введите строку:
с клавиатуры вводится строка символов
с клавиатуры вводится строка !!!!!!!!

2)
var s1,s2:string;
p,i:integer;
begin
writeln('Введите строку:');
readln(s1);
p:=pos(';',s1);
s2:=copy(s1,1,p);
i:=p+1;
while s1[i]<>';' do i:=i+1;
s2:=s2+copy(s1,i,length(s1)-i+1);
writeln(s2);
end.

Введите строку:
abс;xyz;reо
abс;;reо

0 0

3 года назад

Составить программу, которая считывает 2 числа, наименьшее число увеличивает в 2 раза. Результат выводит на экран.

yury2101 [43]

a, b, max: integer;

readLn(a);

readLn(b);

if (a<b) then begin

a:=a*2;

max:=a;

end

else begin

b:=b*2;

max:=b;

end;

writeLn(max);

end.

Желательно проверить работу программы. Если что-то пошло не так - пишите, можете прислать фото ошибки. Буду рад, если Вы отметите моё решение как "Лучший ответ"!

0 0

4 года назад

Определите, что будет напечатано в результате выполнения следующей программы: program a7; var i,s:integer; sr:real; const a: arr

максим2000

Если это такая проблема скопировать код и выполнить его, то держите
Вывод
sr=4.5

0 0

4 года назад