М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
BOTAN1337228101
BOTAN1337228101
20.02.2020 16:35 •  Информатика

Составить программы на языке си 1)вводить различные числа. когда будет введен 0, то программа выходит из цикла. 2)вводим любое число с клавиатуры и нужно определить является ли оно простым 3)создайте одномерный массив, состоящий из 5 элементов. далее, заполните его элементы значениями, введенными с клавиатуры и выведете заполненный массив на экран

👇
Ответ:
KenDipp
KenDipp
20.02.2020
1)
#include <stdio.h>
 
int main() {
 int a = -1;
 while(a != 0)
    scanf("%d", &a);
}
2)
#include <stdio.h>
#include <math.h>
 
int main() {
 int a;
 scanf("%d", &a);
 int prime = 1;
 for(int i = 2; i <= sqrt(a)+1; i++)
    if(a%i == 0) {
      prime = 0;
      break;
    } if((prime == 0 && a != 2) || a == 1) printf("NO\n");
 else printf("YES\n");
}
3)
#include <stdio.h>

int main() {
 int a[5];
 for(int i = 0; i < 5; i++)
   scanf("%d", &a[i]);
 for(int i = 0; i < 5; i++)
   printf("%d ", a[i]);
 printf("\n");
}
4,6(14 оценок)
Открыть все ответы
Ответ:
12babb
12babb
20.02.2020
program
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
 read(s);
 for i:=1 to 4 do a[i]:=0;
 
 for i:=0 to length(s) do
 begin
    if s[i]=')' then inc(a[1]);
    if s[i]='(' then inc(a[2]);
    if s[i]='!' then inc(a[3]);
    if s[i]='.' then inc(a[4]);
 end;
 
 if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
 if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
 if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
 if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
    write('Unclear');

end.
4,5(55 оценок)
Ответ:
крузейро
крузейро
20.02.2020
1. Ввод с клавиатуры
var
p,i:integer;
a:array [1..10] of integer;

begin
p:=-1;

for i:=1 to 10 do begin
readln (a [i]);
end;

while p = -1 do begin
for i:=1 to 10 do begin
if (a [i] < 3) then p:=1;
end;
end;

for i:=1 to 10 do begin
if (a [i] < 3) then
p:=p*a [i];
end;
writeln (p);
end.

2.Рандом

var
p,i:integer;
a:array [1..10] of integer;

begin
p:=-1;

for i:=1 to 10 do begin
a [i]:=Random (10);
end;
write ('Наш массив: ');
for i:=1 to 10 do begin
write (a [i]);
write (' ');
end;
writeln (' ');
while p = -1 do begin
for i:=1 to 10 do begin
if (a [i] < 3) then p:=1;
end;
end;

for i:=1 to 10 do begin
if (a [i] < 3) then
p:=p*a [i];
end;
writeln ('Произведение = ',p);
end.
4,4(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ