На сайте в режиме реального времени публикуются решения контестных задач сервиса Codeforces.
Загружайте свои решения( здесь ) прямо на сайте. Подробнее. Жду ваших решений
 

По разделам

 

Задача Proc 25


Описать функцию IsSquare(K) логического типа, возвращающую
TRUE, если целый параметр K (> 0) является квадратом некоторого целого числа, и FALSE в противном случае. С ее помощью найти количество
квадратов в наборе из 10 целых положительных чисел.

Код (C/C++)

#include <iostream>
#include <windows.h>
#include <fstream>
#include <cmath> 
 
using namespace std;
 
bool IsSquare(int K);
 
int main()
{
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);
   
   int n = 1;
   int num = 0;
   int K;
   int q;
   ifstream in ("Proc25.txt");
   
   cout << "Набор чисел: ";    while (in >> K) {
      cout << K << " ";       if (K>0) {
         q = IsSquare(K);
   	     num += q;
   	     ++n;
      }
   }
   cout << endl;
   cout << "Количество квадратов натуральных чисел в наборе = " << num << endl;
   system ("pause");
   return 0;
}
 
bool IsSquare(int K)
{
   for(int i=1; i*i<=K; ++i) {
      if (i*i==K) return true;
   }
}

Код (Python)

import random
import math

def IsSquare(K):
    x = int(math.sqrt(K))
    if K == x*x:
        return True
    return False

s = 0
for i in range(0,10):
    x = random.randrange(1,101)
    print(x,end="; ")
    s += int(IsSquare(x))

print("\nAmount of Squares:",s)
									

Код (Pascal)

program Proc25;
 
Function IsSquare(K:Integer):Boolean;
begin
  if k = Sqr(round(Sqrt(k)))  then IsSquare:=True
  else IsSquare:=False;
end;
 
 
var
  i,N,Res:Integer;
 
begin
 Res:=0;
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
 
   if IsSquare(N) then Inc(Res);
  end;
  Writeln(Res);
end.
									




Proc. Абрамян
Proc 1 Просмотров: 14
Proc 2 Просмотров: 14
Proc 3 Просмотров: 12
Proc 4 Просмотров: 13
Proc 5 Просмотров: 16
Proc 6 Просмотров: 10
Proc 7 Просмотров: 14
Proc 8 Просмотров: 13
Proc 9 Просмотров: 13
Proc 10 Просмотров: 12
Proc 11 Просмотров: 15
Proc 12 Просмотров: 12
Proc 13 Просмотров: 12
Proc 14 Просмотров: 16
Proc 15 Просмотров: 13
Proc 16 Просмотров: 11
Proc 17 Просмотров: 24
Proc 18 Просмотров: 13
Proc 19 Просмотров: 15
Proc 20 Просмотров: 11
Proc 21 Просмотров: 14
Proc 22 Просмотров: 12
Proc 23 Просмотров: 11
Proc 24 Просмотров: 13
Proc 25 Просмотров: 10
Proc 26 Просмотров: 13
Proc 27 Просмотров: 18
Proc 28 Просмотров: 19
Proc 29 Просмотров: 25
Proc 30 Просмотров: 26
Proc 31 Просмотров: 13
Proc 32 Просмотров: 14
Proc 33 Просмотров: 12
Proc 34 Просмотров: 20
Proc 35 Просмотров: 11
Proc 36 Просмотров: 12
Proc 37 Просмотров: 12
Proc 38 Просмотров: 12
Proc 39 Просмотров: 14
Proc 40 Просмотров: 11
Proc 41 Просмотров: 14
Proc 42 Просмотров: 12
Proc 43 Просмотров: 12
Proc 44 Просмотров: 13
Proc 45 Просмотров: 15
Proc 46 Просмотров: 11
Proc 47 Просмотров: 12
Proc 48 Просмотров: 14
Proc 49 Просмотров: 11
Proc 50 Просмотров: 13
Proc 51 Просмотров: 20
Proc 52 Просмотров: 12
Proc 53 Просмотров: 14
Proc 54 Просмотров: 11
Proc 55 Просмотров: 14
Proc 56 Просмотров: 10
Proc 57 Просмотров: 11
Proc 58 Просмотров: 13
Proc 59 Просмотров: 10
Proc 60 Просмотров: 12

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться