Информатика | 5 - 9 классы
Решите пожалуйста задачу на языке pascal.
Помогите, пожалуйста?
Помогите, пожалуйста!
Очень надо.
Напишите на языке Pascal.
Пожалуйста помогите решить задачу на языке Pascal?
Пожалуйста помогите решить задачу на языке Pascal.
Задача 2.
Как в Pascal писать на русском языке ?
Как в Pascal писать на русском языке ?
Наиэлементарнейшая задача :Запишите формулу в языке программирования Pascal?
Наиэлементарнейшая задача :
Запишите формулу в языке программирования Pascal.
Площадь трапеции на языке ABC pascal?
Площадь трапеции на языке ABC pascal.
Пожалуйста составте программу для Pascal по следующим заданиям : 1) Получить из слов "Язык", "программирования", "Pascal" фразу язык программирования Pascal" 2)Получить из слов "Интер" , "нет" слово "?
Пожалуйста составте программу для Pascal по следующим заданиям : 1) Получить из слов "Язык", "программирования", "Pascal" фразу язык программирования Pascal" 2)Получить из слов "Интер" , "нет" слово "Интернет 3) Дан Символ С вывести его код.
Помогите, пожалуйста?
Помогите, пожалуйста!
На языке Pascal решить данное выражение.
Заранее спасибо!
Язык Pascal что означает : mod и div ?
Язык Pascal что означает : mod и div ?
Решить на языке pascalОпределить длину забора участка?
Решить на языке pascal
Определить длину забора участка.
Вы находитесь на странице вопроса Решите пожалуйста задачу на языке pascal? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Var a, b, c : longint ;
begin
write('Введите целое положительное число a = ') ;
readln(a) ;
b : = a ;
c : = 0 ;
while b> ; 0 do
begin
c : = c * 10 + (b mod 10) ;
b : = b div 10 ;
end ;
writeln(c) ;
if c = a then
write('Палиндром')
else write('Не палиндром') ;
end.