Из слова "форма" получить слово "фирма" 2) дан текст "картографирования" получить слова граф, арт, роф. 3) сколько раз в заданном условии повторяется буква а.4) дано предложение ( s) подсчитать количество символов (а). решить , нужно.
Var s:string; i,k:integer; begin s:='форма'; writeln('Слово: ',s); s[2]:='и'; writeln('Получили слово: ',s); s:='картографирования'; writeln('Из слова: ',s); writeln('получили слова: ', copy(s,6,4),' ',copy(s,2,3), ' ', copy(s,11,2)+s[9]); writeln('Введите предложение:'); readln(s); for i:=1 to length(s) do if (s[i]='А')or(s[i]='а') then k:=k+1; writeln('В заданном предложении буква а встречается ',k,' раз'); end.
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum) end.
Пример n= 8 34 -12 0 16 -5 -7 2 -9 S=-33
Пояснения ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n. ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел. Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа. Все, что через фильтр, будет просуммировано при И осталось только вывести результат при тут_сумма) Вот и все.
s:string;
i,k:integer;
begin
s:='форма';
writeln('Слово: ',s);
s[2]:='и';
writeln('Получили слово: ',s);
s:='картографирования';
writeln('Из слова: ',s);
writeln('получили слова: ', copy(s,6,4),' ',copy(s,2,3), ' ', copy(s,11,2)+s[9]);
writeln('Введите предложение:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')or(s[i]='а') then k:=k+1;
writeln('В заданном предложении буква а встречается ',k,' раз');
end.