4 года назад

Найдите все двузначные числа, квадраты которых делятся на 13. (Написать программу)

Знания

Информатика

1 ответ:

Гость 77 [50]4 года назад

0 0

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
range(10,99).Where(x->x*x mod 13=0).Println;
end.

Читайте также

Какой объем видеопамяти(в кБайтах) необходим для хранения изображения если глубина цвета 8 бит разрешающая способность дисплея 8

Вадим Лис

Глубина 8 бит означает, что на хранение каждого пикселя нужно 8 бит = 1 байт, а всего этих пикселей 800*600 = 480000 -> необходимо 480000 байт = 468.75 кбайт.

0 0

4 года назад

Написать формулу на C++ заранее спасибо! 15 вариант

Daniil0900 [2]

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

float x,y,s;

cin>>x>>y;

if(x>0)

s=(x*x+pow(y,3))/y;

else

if(x<0)

s=log(abs(pow(x,3)))+cos(y);

else

s=pow(sin(y),2.0/3);

cout<<s;

return 0;

}

0 0

4 года назад

Определить среди шестизначных чисел палиндромы (палиндромом называется число, которое читается слева направо и с права налево од

РаисаО

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
if s=ReverseString(s) then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.

<u><em>Тестовое решение</em></u>
Введите шестизначное натуральное число: 158851
Это палиндром

0 0

4 года назад

Определите имена персонажей по отрывку из текста: Вещь, которую я сейчас прочитаю – произнес он, - была написана специально для

Ahito [596]

Алиса и Шалтай
из сказки "Алиса в Стране чудес"

0 0

4 года назад

Сформируйте одномерный массив из 4 элементов ( значения элементов зависит от порядкового номера массива и вычисляется по формуле

наталия11122 [7]

Var a:array[1..4] of integer;
i, sum:integer;
Begin
for i := 1 to 4 do begin
   a[i]:= i*i;
   sum := sum + a[i];
   writeln(a[i]);
end;
writeln(sum);
End.

0 0

4 года назад