Если я правильно поняла задание, то вот
использовать Робот
алг
нач
вправо
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
вправо
вниз
вниз
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
нц 6 раз
вниз
кц
вправо
<span>
кон</span>
Var a,x,b:integer;y:real;
begin
writeln('a,b,x');
readln(a,b,x);
if x>=100 then y:=2*a*sqr(x)+b*sqrt(x) else y:=a*sqrt(x)+100-b*x;
writeln(y:5:2);
<span>end.</span>
От слова рота к слову полк. рота , ____ , ____ , ____ , ____ , полк. бант , __ , __ , __ , __ , коса море , __ , __ , __ , __ ,
ИРИНА9997 [108]
<span>рота- роза- лоза- поза- пола- полк
бант- бунт- бурт- борт- корт- кора- нора
море- горе- гора- нора- нога- нуга- дуга- душа- суша
миг- маг- май- чай- час- чес- вес- век </span>
Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>
Вес 1 изделия - 89,4 г
количество изделий - 1 000 000 шт.
Общий вес - ?
89,4 * 1 000 000 =89 400 000 г = 89 400 кг = 894 ц = 89,4 т
Ответ: общий вес 1 млн. изделий составляет 89,4 т.
Реализация в PASCAL:
var m, ves:real;
k:integer;
begin
write('Введите вес одного изделия в граммах: '); readln(m);
write('Введите количество этих изделий: '); readln(k);
ves:=m*k;
write('Общий вес составит ', ves:7:2, 'г = ', ves/1000:7:2,'кг = ', ves/1000000:7:2,'т' );
end.
