домашка68
28.01.2023 07:25

Смоделируйте по условию с часть -целое1) во дворе играли 12 детей из них 8 мальчиков ,а остальные девочки сколько девочек играло во дворе ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Iiwang6666
04.07.2020 15:56
 Системы программирования -это система для разработки новых программ на конкретном языке программирования. Современные системы программирования обычно предоставляют пользователям мощные и удобные средства разработки программ.

Язык программи́рования — формальный язык, предназначенный для записи компьютерных программ. Язык программирования определяет набор лексических, синтаксических и семантических правил, определяющих внешний вид программы и действия, которые выполнит исполнитель (обычно — ЭВМ) под её управлением. 
0,0(0 оценок)
Ответ:
brll1bellrf43
08.10.2021 05:28
1)
Var
x, i: integer;
begin
Write('Введите X -> ');
readln(x);
Write(1, ' ');
for i:= 2 to x div 2 + 1 do
  if x mod i = 0 then
    Write(i, ' ');
Write(x);
end.

2)
Var
x,count, i: integer;
begin
Write('Введите X -> ');
readln(x);
for i:= 2 to x div 2 + 1 do
  if x mod i = 0 then
    count:= count + 1;
Writeln(count);   
end.
3)
Var
x, count, i: integer;
begin
Write('Введите X -> ');
readln(x);
for i:= 2 to x div 2 + 1 do
  if x mod i = 0 then
    count:= count + 1;
if count = 0 then Writeln('Простое')
else Writeln('Составное');   
end.

4)
Var
n,m, i, j: integer;
fl:boolean;
begin
Readln(n,m);
For i:= n to m do
  begin
  fl := true;
  for j:= 2 to i div 2 + 1 do
    if i mod j = 0 then fl := false;
  if (fl) then Write(i, ' ');
  end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота