|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
20.06.2012, 22:33
|
#1 |
|
Новичок
Джуниор
Регистрация: 20.06.2012
Сообщений: 2
|
не пойму в чем ошибка
Переменной t присвоить значение 1 или 0 в зависимости от того, является ли натуральное число k степенью 3.
var t: integer; k: real; begin write('k=');readln(k); if (k mod 3)>0 then t:=1; else t:=0; end. |
|
|
20.06.2012, 22:56
|
#2 |
|
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
Сливочное масло Valio - компиляция как по маслу
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Не пойму в чем ошибка | Snekich | Microsoft Office Excel | 5 | 18.12.2011 19:35 |
| Не пойму в чем ошибка. Кто подскажет? | Wild_klas | Помощь студентам | 8 | 20.10.2010 09:05 |
| не пойму в чем ошибка | Анастасия123456789 | Помощь студентам | 3 | 23.03.2009 15:53 |
| Не пойму в чем ошибка | Machete | PHP | 2 | 08.12.2008 10:09 |
