Что является результатом выполнения данных программ
1) Program stroki

uses crt

va

s:string

I, k: integer

begi

clrscr

read(s)

k:=0

for i:=1 to length(s) d

If copy (s,I,1)=‘a’ then k:=k+1

writeln(‘kolichestvo bukv a v tekste=‘,k)

readkey

end.

Предыдущий
вопрос Следующий
вопрос

Программа считает количество букв "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 и выводит эту сумму на экран.