Ответ:
a
Объяснение:
в інших випадках стрілочки розміри не завжди потрібні
На pascal abc
uses crt;
var
a, b, c : real;
begin
write('Введите три числа (через пробел): ');
readln(a, b, c);
if (a>=0) and (a<10) and (b>=0) and (b<10) and (c>=0) and (c<10)
then writeln ((a+b+c)/3)
else writeln ('Число не принадлежит промежутку [0;10)');
<span>end.</span>
<em>1)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em>begin</em>
<em> read (s);</em>
<em> for i:=1 to length(s) do</em>
<em> begin</em>
<em> if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))</em>
<em> else write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>2)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> if s[1]=' ' then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=1;</em>
<em> end;</em>
<em> for i:=2 to length(s) do</em>
<em> if (s[i]=' ') and (s[i-1]<>' ') then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=i;</em>
<em> end;</em>
<em> for i:=1 to j do</em>
<em> begin</em>
<em> a:=p[i];</em>
<em> p[i]:=0;</em>
<em> while s[a]=' ' do</em>
<em> begin</em>
<em> inc (p[i]);</em>
<em> a:=a+1;</em>
<em> end;</em>
<em> end;</em>
<em> b:=p[1];</em>
<em> for i:=1 to j do</em>
<em> if p[i]>b then b:=p[i];</em>
<em> write (b);</em>
<span><em>end.</em>
<em>3)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> write (s[i]);</em>
<em> while s[i]<>':' do</em>
<em> begin</em>
<em> inc (i);</em>
<em> write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>4)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> while s[i]<>':' do</em>
<em> inc (i);</em>
<em> i:=i+1;</em>
<em> while (s[i]<>':') and (i<=length(s)) do</em>
<em> begin</em>
<em> write (s[i]);</em>
<em> inc (i);</em>
<em> end;</em>
<span><em>end.</em></span></span></span></span>
// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
begin
writeln ('вы ввели не допустимое значение попробуйте еще раз');
writeln ('введите длину ребра куба');
readln (a);
end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.