Программаның орындалу нәтижесінде шыққан S тің мәнін жазыңыз

​

апельсин - цитрусовое.

самый известный факт об апельсинах, что они богаты витамином с. сто грамм этого цитруса могут обеспечить более чем 80% рекомендованной ежедневной нормы этого витамина для человека.

а еще в апельсинах содержатся различные антиоксиданты, которые предотвращать рак, бороться с болезнями сердца, снижать повышенное артериальное давление и уровень холестерина в крови.

апельсин не только красивый и яркий фрукт, но также он вкусен и полезен для здоровья. регулярно употребляйте апельсины в пищу, и тогда у вас всегда будет прекрасное настроение и отличное самочувствие.

Влодку сначала садятся один купец и один разбоник перебираются на другой берег остается разбойник купец возвращаетя обратно забирает разбойника едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает разбойника едут на другой берег и высаживаются оба лодка совершила 9 рейсов

паскаль:

 

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

 

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

 

 

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.