Var s1,s2 : String;
i,n : Byte;
Function Min(a,b : Byte) : Byte;
Begin
If a<b then Min:=a else Min:=b;
end;
Begin
Readln(s1);
Readln(s2);
n:=0;
For i:=1 to Min(Length(s1),Length(s2)) do If s1[i]=s2[i] then Inc(n);
Writeln(n);
end.
Ответ A . Этот алгоритм увеличивает число на 1 . Это видно на фото.
Varn,k,a,b,c,g:integer;e:real;Beginwriteln('Количество яблонь: ');read(n);writeln('Содержание 1-ой яблони в рублях: ');read(k);writeln('Наценка на 1кг в процентах: ');read(g);a:=0;randomize;for c:=1 to n dobeginb:=random(20)+30;a:=a+bend;e:=k*g/100*a;writeln('Урожай составил ',a,' кг яблок.');writeln('Прибыль с проажи ',a,' кг яблок: ',e,' рублей.');end.
А) имя массива "а"
Б) в нем 6 элементов
В) тип элементов массива - целые числа (Integer)
Г) данные в массив введены в виде констант (Const)
Д) третья строка программы, после знака "=": (1, 7, 3, 6, 0, 10)
Е) программа подсчитывает сумму элементов массива, делит эту сумму на 6 и результат выводит на экран