Все категории

4 года назад

Напишите программу на языке Паскаль. Определить, является ли число, введённое с клавиатуры простым.

Знания

Информатика

1 ответ:

Людмиla4 года назад

0 0

var n, i: integer;

begin

write('Введите число: ');

readln(n);

i:=2;

while n mod i <> 0 do

i += 1;

if i = n then

writeln('Простое')

else

writeln('Не простое');

end.

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

Дан фрагмент электронной таблицы А1-х А2- (А1-3)/(В1-1) В1-6 В2- (А1-3)/(С1-5) С1-10 С2- С1/(А1-3) Какое целое число должно быть

Елена Литва [32]

Задачу решить проще всего методом подбора.
A2 = $\frac{x-3}{5}$ .
B2 = $\frac{x-3}{5}$ .
C2 = $\frac{10}{x-3}$ .

Следуя логике, x >= 8, так как числитель должен быть больше знаменателя. Пробуем подставить:
A2 = $\frac{8-3}{5}$ = 1.
B2 = $\frac{8-3}{5}$ = 1.
C2 = $\frac{10}{8-3}$ = 2.

Данные значения подходят для диаграммы.

Если решать полностью, то дробь $\frac{x-3}{5}$ должны умножить на 2 и приравнять к $\frac{10}{x-3}$ , потому что $\frac{x-3}{5}$ является четвертью и при умножении равно $\frac{10}{x-3}$ .

$(\frac{x-3}{5}) *2 = \frac{10}{x-3}$ .
$\frac{2x-6}{5} = \frac{10}{x-3}
$ .
$2 x^{2} - 6x - 6x + 18 = 50.$
$2x^{2} - 12x-32 = 0. \\ x^{2} - 6x - 16 = 0. \\ D = b^{2} - 4ac = 36 - 4*(-16) = 100. \\ x _{1} = \frac{-b+ \sqrt{D} }{2a} = \frac{6+ \sqrt{100} }{2} = \frac{6+10}{2} = 8.$

Второй корень не имеет смысла считать, так как он отрицательный.

Ответ: 8.

0 0

4 года назад

Скорость передачи данных по некоторому каналу связи равна 8 Мбит/с. Передача файла через это соединение заняла 30 секунд. Опреде

Henarito

Дано:

q = 8 Мбит/с

t = 30 с

Найти:

V - ?

Решение:

V = q * t

V = 8 Мбит/с * 30 с = 240 Мбит / 8 = 30 Мбайт

Ответ: 30 Мбайт

0 0

4 года назад

Процесс распространения информации в пространстве — это искажение информации получение информации обработка информации передача

Нааатаааааааша [7]

Это передача информации

0 0

4 года назад

Паскаль Помогите пожалуйста 10 класс . много чего ещё не понимаю 1) Определите сумму четных чисел до числа N введённые с клави

Maksim Golovin

Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
  if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>

2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do  p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>

0 0

4 года назад

Доклад на тему история развития вычислительной техники

Игорь Дарьин

Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. Первыми приспособлениями для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. Развиваясь, эти приспособления становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. Такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени.

Постепенно из простейших приспособлений для счёта рождались всё более и более сложные устройства: абак (счёты), логарифмическая линейка, арифмометр, компьютер. Несмотря на простоту ранних вычислительных устройств, опытный счетовод может получить результат при помощи простых счётов даже быстрее, чем нерасторопный владелец современного калькулятора. Естественно, производительность и скорость счёта современных вычислительных устройств уже давно превосходят возможности самого выдающегося расчётчика-человека.

0 0

3 года назад