самый известный факт об апельсинах, что они богаты витамином с. сто грамм этого цитруса могут обеспечить более чем 80% рекомендованной ежедневной нормы этого витамина для человека.
а еще в апельсинах содержатся различные антиоксиданты, которые предотвращать рак, бороться с болезнями сердца, снижать повышенное артериальное давление и уровень холестерина в крови.
апельсин не только красивый и яркий фрукт, но также он вкусен и полезен для здоровья. регулярно употребляйте апельсины в пищу, и тогда у вас всегда будет прекрасное настроение и отличное самочувствие.
Ответ дал: Гость
program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.
ввел: asdfsss
результат: asdfs
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
Ответ дал: Гость
программа на паскале:
program xxx;
var a, b: real;
begin
writeln('введите количество миль');
readln(a);
b: = a*1.6;
writeln('кол-во киллометров - ',b)
end.
Ответ дал: Гость
program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.
Популярные вопросы