Найти все двузначные простые числа (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) для паскаля
Var A,i,k:byte; Begin Write('Простые двузначные числа:'); For A:= 10 to 99 do Begin k:=0; For i:= 2 to A div 2 do if A mod i = 0 then k:=k+1; if k = 0 then Write(' ',A) End End.
{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?} var a,b,c:real; begin writeln('введите стороны треугольника'); readln(a, b, c); if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует') else writeln('треугольник не существует'); end.
{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7} var N:integer; begin writeln('введите число'); readln(N); if n mod 10= 7 then writeln('оканчивается цифрой 7') else writeln( 'не оканчивается цифрой 7'); end.
purchase
08.04.2020
Объект в программировании — некоторая сущность в виртуальном пространстве, обладающая определённым состоянием и поведением, имеющая заданные значения свойств (атрибутов) и операций над ними (методов) [1]. Как правило, при рассмотрении объектов выделяется то, что объекты принадлежат одному или нескольким классам, которые определяют поведение (являются моделью) объекта. Термины «экземпляр класса» и «объект» взаимозаменяемы. [2]
Объект, наряду с понятием класс, является важным понятием объектно-ориентированного подхода. Объекты обладают свойствами наследования, инкапсуляции и полиморфизма [1].
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Найти все двузначные простые числа (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) для паскаля
Begin
Write('Простые двузначные числа:');
For A:= 10 to 99 do
Begin
k:=0;
For i:= 2 to A div 2 do
if A mod i = 0 then k:=k+1;
if k = 0 then Write(' ',A)
End
End.
Результат работы программы:
Простые двузначные числа: 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97