"найти сумму всех положительных чисел вводимых с клавиатуры. если 0, то вывод на печать" программа паскаль

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.

 

функции:

trunc - возвращает целую часть вещественного числа.

round   -   возвращает число, округленное до ближайшего целого. если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).

div -   результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.

mod - остаток от целочисленного деления.

решение:

trunc(6,9) = 6

trunc(6,2) = 6

round(6,9) = 7

20 div 6 = 3

20 mod 6 = 2

2 div 5 = 0

2 mod 5 = 2

using System;

namespace ConsoleApp

{

   class Program

   {

       static void Main(string[] args)

       {

           Console.Write("Enter N = ");

           int n = int.Parse(Console.ReadLine());

           double Result = 1;

           int i;

           for (i = 0; i < n; i++) Result *= 1.0 + 1.0 / Math.Pow((double)i, (double)i);

           Console.WriteLine("For cycle result = " + Result.ToString());

           i = 0;

           Result = 1;

           while (i < n) {

               Result *= 1.0 + 1.0 / Math.Pow((double)i, (double)i);

               i++;

           }

           Console.WriteLine("While cycle result = " + Result.ToString());

           Console.ReadLine();

       }

   }

}