сервис вопросов и ответовнаписать программу на языке паскаля 1)Дано натуральное число. Определить является ли оно чётным 2)дано натуральное число.
5-9 класс|
|
Определить оканчивается ли оно цифрой 7.
Snezhok11
22 янв. 2014 г., 1:04:56 (10 лет назад)
Rezeda2370
22 янв. 2014 г., 4:02:55 (10 лет назад)
Задача 1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
Задача 2
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
e := n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
realdn
end.
Ответить
Другие вопросы из категории
Здравствуйте! Мы сделали кнопки в PascalABC.Net. Как сделать так, чтобы когда на них нажимаешь, то выводился на экран текст. Заранее спасибо.
Вот код программы:
uses GraphABC, ABCObjects,ABCButtons;
begin
MaximizeWindow;
var btword := new ButtonABC(50,125,500,100,'Играть',clWhite);
var btword1 := new ButtonABC(50,325,500,100,'Настройки',clWhite);
var btword2 := new ButtonABC(50,525,500,100,'Правила',clWhite);
var btword3 := new ButtonABC(50,725,500,100,'Выход',clWhite);
end.
Читайте также
дано натуральное число N, Написать ему выводящую на экран последовательность натуральность натуральных чисел от 1 до N, задание 2 дано натуральное число
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Плиз срочно надо.1)Найдите правильную на языке паскаль запись выражения
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Вы находитесь на странице вопроса "написать программу на языке паскаля 1)Дано натуральное число. Определить является ли оно чётным 2)дано натуральное число.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.