0 / 0 / 0
Регистрация: 03.05.2018
Сообщений: 1
1

Перевод с Паскаля на Кумир - программирование

03.05.2018, 20:56. Показов 2030. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a : array [1..10000] of integer ;
n,i,k:integer;
begin
randomize;
write('Введите количество абитуриентов n ='); readIn (n) ; 
for i:=1 to n do begin
a[i] :=random(4) +2;   write(a[i],' '); end;
writeIn;
k:=0;
for i:=1 ton do
if a[i]=2 then k:=k+1;
writeln('Количество человек не допущенных к экзамену = ',k); END
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2018, 20:56
Ответы с готовыми решениями:

Перевод с Паскаля на КуМир
var st: string; i: integer; begin readln(st); for i:=1 to length(st) do if st =...

Перевод из паскаля в кумир
Помогите перевести на кумир, пожалуйста! program E6; var a, b: integer; begin write...

Перевод из Паскаля в Кумир
Var i:integer; begin writeln(Сошли с дистанции машины); for i:=1 to 17 do if i mod 2 = 0 then...

Перевод из паскаля в кумир
Помогите перевести уже готовую программу из паскаля в кумир. var a, b, i, ii, fl, j:...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32822 / 21160 / 8147
Регистрация: 22.10.2011
Сообщений: 36,417
Записей в блоге: 8
04.05.2018, 18:07 2
Код
алг
нач
   цел N, i, k
   целтаб a[1:10000]
   вывод "Введите количество абитуриентов n = "
   ввод N
   нц для i от 1 до N
      a[i] := irand(2, 5)
      вывод a[i], " " 
   кц
   вывод нс
   k := 0
   нц для i от 1 до N
      если a[i] = 2 то k := k + 1 все 
   кц
   вывод "Не допущено к экзамену: ", k
кон
0
04.05.2018, 18:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2018, 18:07
Помогаю со студенческими работами здесь

Перевод с паскаля на кумир №2
Еще раз приветствую всех. Помогите пожалуйста перевести код паскаля на КУМИР. uses crt; const...

Перевести из паскаля в кумир
var i, n: integer; s: real; begin write('n = '); read(n); s := 0; for i :=...

Перевести с паскаля на кумир
Привет всем. Помогите пожалуйста перевести код с паскаля на кумир. 1 Задача: var...

Перевести программу из паскаля в кумир
Program From2To10; var n2: Longint; n10, m, i: Integer; begin Write('n2 = '); ...

Перевести программу из паскаля в кумир
var ar: Array Of Real; i, j: Byte; k, n, m: Integer; mult: Extended; //Double | Real...

Как перевести из паскаля в кумир?
const n=5; type mas=array of integer; var a:mas; i: integer; k:real;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru