Добро пожаловать, Гость
Логин: Пароль: Запомнить меня
  • Страница:
  • 1

обьяните

обьяните 02/06/2013 09:25 #1

  • Николай
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 2
  • Баллов: 45
  • Репутация: 0
обьяните что к чему)

program omg;
var n,i,a,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 6=0) then k:=k+1;
end;
writeln(k);
end.

обьяните 17/06/2013 10:05 #2

  • kipyatooOk
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 1
  • Баллов: 24
  • Репутация: 0
Николай написал:
обьяните что к чему)

1. program omg;
2. var n,i,a,k: integer;
3. begin
4. readln(n);
5. k:=0;

6. for i:=1 to n do
7. begin
8. readln(a);
9. if (a mod 6=0) then k:=k+1;
10. end;

11. writeln(k);
12. end.


1 строка - название программы, ее можно упустить.
2 строка - объявление переменных n,i,a,k целого типа (integer).
3 строка - начало основного блока программы (BEGIN).
4 строка - readln (n) считываем перемнную n с клавиатуры. Т.е. пользователю выводится приглашение на ввод.
5 строка - инициалицация переменной k, присваиваем 0.
6-10 строки - цикл for. Блок цикла между Begin и End (7 и 10 строки), т.е. все, что между Begin и End, относится к циклу for. Внутри цикла считываем переменную "a" (readln(a) - 8 строка). На 9ой строке условие (if (a mod 6=0)), при котором выполняется операция k:=k+1. Т.е. если переменную "a" разделить на 6 и остаток равен 0, то к переменной k прибавляем единицу.
11 стока - выводит переменную k на консоль.
12 строка - конец основного блока программы (END).
Последнее редактирование: 17/06/2013 10:05 от kipyatooOk. Причина: Поправка

обьяните 30/04/2017 12:16 #3

  • Олежка
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 3
  • Баллов: 6
  • Репутация: 0
Спасибо большое за подсказку:)
  • Страница:
  • 1
Время создания страницы: 0.28 секунд