Написать программу которая проверяет является ли целое число введённое пользователем простым рекомендуемый вид экрана во время работы программы ниже даны введение выражающие полужирным шрифтом
Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию задачи.
Вариант 1. Без операторов цикла. var a,b,c,d:integer; begin Write('Введите 4 натуральных числа: '); Read(a,b,c,d); if a mod 2=0 then Writeln('Корень из ',a,' равен ',sqrt(a)); if b mod 2=0 then Writeln('Корень из ',b,' равен ',sqrt(b)); if c mod 2=0 then Writeln('Корень из ',c,' равен ',sqrt(c)); if d mod 2=0 then Writeln('Корень из ',d,' равен ',sqrt(d)); end.
Пример решения Введите 4 натуральных числа: 3 8 16 12 Корень из 8 равен 2.82842712474619 Корень из 16 равен 4 Корень из 12 равен 3.46410161513775
Вариант 2. С оператором цикла. var i,n:integer; begin for i:=1 to 4 do begin Write('Введите натуральное число: '); Read(n); if n mod 2=0 then Writeln('Корень из ',n,' равен ',sqrt(n)) end end.
Пример решения Введите натуральное число: 3 Введите натуральное число: 8 Корень из 8 равен 2.82842712474619 Введите натуральное число: 16 Корень из 16 равен 4 Введите натуральное число: 12 Корень из 12 равен 3.46410161513775
Вариант 3. С массивами var i:integer; a:array[1..4] of integer; begin Write('Введите 4 натуральных числа: '); for i:=1 to 4 do Read(a[i]); for i:=1 to 4 do if a[i] mod 2=0 then Writeln('Корень из ',a[i],' равен ',sqrt(a[i])) end.
Пример решения Введите 4 натуральных числа: 3 8 16 12 Корень из 8 равен 2.82842712474619 Корень из 16 равен 4 Корень из 12 равен 3.46410161513775
1) Компью́теры пя́того поколе́ния — в соответствии с идеологией развития компьютерных технологий, после четвёртого поколения, построенного на сверхбольших интегральных схемах, ожидалось создание следующего поколения, ориентированного на распределенные вычисления, одновременно считалось, что пятое поколение станет базой для создания устройств к имитации мышления.
2)согласен) и полностью поддерживаю), т.к. внедрение компьютерных технологий это очень полезно. К примеру: слепые могу увидеть с новейших разработок, люди без конечностей могу спокойно жить как и все остальные люди с новейшими имплантатами
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.