Что является результатом выполнения данных программ?
1) Program stroki;
uses crt;
var
s:string;
I, k: integer;
begin
clrscr;
read(s);
k:=0;
for i:=1 to length(s) do
If copy (s,I,1)=‘a’ then k:=k+1;
writeln(‘kolichestvo bukv a v tekste=‘,k);
readkey;
end.
Что является результатом выполнения данных программ?
1) Program stroki;
uses crt;
var
s:string;
I, k: integer;
begin
clrscr;
read(s);
k:=0;
for i:=1 to length(s) do
If copy (s,I,1)=‘a’ then k:=k+1;
writeln(‘kolichestvo bukv a v tekste=‘,k);
readkey;
end.
1) Program stroki;
uses crt;
var
s:string;
I, k: integer;
begin
clrscr;
read(s);
k:=0;
for i:=1 to length(s) do
If copy (s,I,1)=‘a’ then k:=k+1;
writeln(‘kolichestvo bukv a v tekste=‘,k);
readkey;
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа считает количество букв "a" в введенной пользователем строке и выводит это количество на экран.
2) Program numbers;
uses crt;
var
x, sum: integer;
begin
clrscr;
sum:=0;
for x:=1 to 10 do
begin
if (x mod 2) = 0 then sum:=sum+x;
end;
writeln(‘Summa chetnyh chisel ot 1 do 10=‘,sum);
readkey;
end.
Программа находит сумму всех четных чисел от 1 до 10 и выводит эту сумму на экран.