<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(('Я изучаю циклы'+NewLine)*15)
end.
<u>Результат</u>
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Var
}
r,d:integer;rar
}
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double val1 = 0;</span>
<span> double val2 = 0;</span>
<span> cin >> val1 >> val2;</span>
<span> cout << "Cумма = " << val1+val2 << "\n";
</span><span> cout << "Разность = " << val1-val2 << "\n";</span>
<span> cout << "Произведение = " << val1*val2 << "\n";</span>
<span> cout << "Частное = " << val1/val2 << "\n";</span>
}
<span>
</span>
Ответ:1110001=1x2*6+1x2*5+1x2*4+1x2*0=64+32+16+1=113
Объяснение: