var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
предлагаю писать слова наооборот.Например:(я напишу,,я отправляюсь на Марс,и прибуду в час ночи,,)так это будет выглядеть:,,ичон сач в удубрип и ,сарМ ан ьсюялварпто я,,. Удачи))
640...........................................
#include <iostream>
using namespace std;
int main()
{
<span> int a[15];
</span><span> int i = 0;
</span><span> int sum = 0;
</span><span> for (; i < 15; i++)
</span> cin >> a[i];
for (i = 14; (i != 0) && (a[i]>0); i--) <span>
sum += a[i];</span>
cout << "i = " << i+1 << endl;
<span> cout << "summa = " << sum << endl;
</span><span> return 0;
</span><span>}</span>