сервис вопросов и ответовТема:Integer
5-9 класс|
|
Задача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя).
Помогите пожалуйста)
Nzadugin
13 окт. 2013 г., 13:35:42 (10 лет назад)
Lerakorra
13 окт. 2013 г., 15:13:55 (10 лет назад)
var i: integer; x: boolean; n: integer;
begin
readln(n);
for i:= 2 to n - 1 do
begin
if n mod i = 0 then
x:= true;
end;
if (x = false) and (n <> 1) then
writeln('yes')
else
writeln('no');
end.
Polina1111025
13 окт. 2013 г., 15:46:48 (10 лет назад)
Комментарий удален
Russiaman
13 окт. 2013 г., 18:42:56 (10 лет назад)
Комментарий удален
зиминойд
13 окт. 2013 г., 20:44:16 (10 лет назад)
Комментарий удален
лизаТретьяк
13 окт. 2013 г., 23:49:52 (10 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
таблица БД " Реки мира" содержит следующие поля : название, материк, длина ( в км), максимальная глубина ( в м ), куда впадает, наличие
водохранилищ.опишите тип и ширину каждого поля.определите первичный ключ.
испольнитель Высичлитель может хранит в своей памяти только одно число и выполнять только три команды которым присвоены номера
0. число *2
1. чило +1
2. обнулить результат
программа для высислетиля записывается как последовательность из 0,1 и 2 сначала в памяти Высичлителя всегда записано чило 1 например программа 0121 запишет в память Высичлителя число 1 (т.к (1*2+1)*0+1=1) Даны программы для исполнителя
Высичлитель расположите их в порядке возрастания результатов
1) 021101
2)0121000
3)2011000
4)2001210
5)0101010
Читайте также
Народ,срочно!!!нужно сделать мне презентацию!!и на первом слайде должно быть:содержание! и соответственно темы. и по щелчку на какую то тему,должна
собственно открываться эта тема. как это сделать?
Нужно перевести данную программу на язык С++ с паскаля.Срочно! program tt; uses crt; const Nmax=10; var m:array[1..Nmax] of integer; i,i_min,i_max:byte;
min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(20)-10; write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]
Задали реферат на тему: Программы мгновенного обмена сообщениями (мессенджеры). Накидайте идей, чего в него можно поместить, у меня кроме как на введение
и тупое описание некоторых мессенждеров только мозгов хватило. Чем больше-тем лучше
Какое значение будет принемать значение Y после выполнения фрагментов программы: 1. var x,y: INTEGER; BEGIN y:=0; for x:=1
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
Вы находитесь на странице вопроса "Тема:Integer", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.