//PascalABC.Net 3.2
begin
var a:=readinteger('a =');
var d:=readinteger('d =');
var sum:=0;
for var i:=0 to readinteger('k =')-1 do
sum+=a+i*d;
write (sum);
end.

0 0

4 года назад

В коробке имеется набор устройства ввода-вывода клавиатура мышь принтер сканер акустические колонки Monitor Какое минимальное чи

Dorian Hokmun [265]

2,и следующий будет принтер

0 0

3 года назад

Объявлен набор в шк.команду. Известен рост каждого из N учеников,желающих попасть в эту команду. Подсчитайте количество претенде

LAAC

На C++

#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
   srand(time(0));
   int counter = 0;
   int growth;

   for(int i = 0; i < 50; i++)
   {
      if((growth = rand() % 151 + 150) >= 170)
      {
         counter++;
      }
      cout << growth << ' ';
   }
   cout << endl << endl;

   cout << counter << " pupil";
   cout << (counter != 1 ? "s" : "") << endl; // Если будет только 1 ученик,
                                             //то больше ничего не печатать
                                             //иначе - допечатать букву "s"

   cin.get();
   return 0;
}

0 0

4 года назад

Привет, помоги пожалуйста. Представить отрицательное число - 382(10) в двухбайтовом представлении в памяти компьютера. Сначала п

БорисКапитанов [1]

101111110(2)

обратний :

0100000011

0 0

4 года назад