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

В каком из перечисленных ниже предложений правильно расставлены пробелы между словами и знаками препинания?1) Один ум-хорошо, а два – лучше. 2) Один ум - хорошо, а два – лучше.
3) Один ум – хорошо , а два – лучше.
4) Один ум - хорошо, а два–лучше.

От ​

👇
Открыть все ответы
Ответ:

1.

program qq;

const n = 10;

var a: array[1..n] of integer;

i,k: integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(2001)+1000;

write(a[i],' ');

end;

writeln;

k:=0;

for i:=1 to n do

if a[i] mod 3 = 0 then k:=k+1;

writeln('Количество элемениов кратных 3 - ', k);

readln;

end.

Пример:

2296 2042 2463 2049 1081 2156 2977 1633 1054 1425  

Количество элемениов кратных 3 - 3

2. Определяется количество чисел, которые при делении на 10 дают остаток 8.

program qq;

const n = 10;

var a: array[1..n] of integer;

i,k: integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(2001)+1000;

write(a[i],' ');

end;

writeln;

k:=0;

for i:=1 to n do

if a[i] mod 10 = 8 then k:=k+1;

writeln('k = ', k);

readln;

end.

Пример:

1887 1878 2568 1936 2508 2788 2050 1569 2906 1782  

k = 4

4,4(88 оценок)
Ответ:
дима22819
дима22819
07.08.2020
Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.
4,4(67 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ