сервис вопросов и ответоврешить в паскале задачу (8-9 класс):
5-9 класс|
|
дано четырехзначное число. определить, входят ли в него цифры 2 или 7
Синга
10 дек. 2013 г., 9:12:25 (10 лет назад)
Svika2015
10 дек. 2013 г., 11:14:32 (10 лет назад)
program test;
var x, temp: integer; flag: boolean;
begin
write('Введите целое четырёхзначное число: ');
read(x);
flag:=false;
while x <> 0 do
begin
temp:=x mod 10;
if (temp = 2) or (temp = 7) then
begin
flag:=true;
break;
end;
x:=x div 10;
end;
if flag then
writeln('2 или 7 входят в число.')
else
writeln('2 или 7 не входят в число.');
end.
Ответить
Другие вопросы из категории
Рассчитать значения у для значений х, равных 4, 5, ..., 28, если у задается следующей формулой: у = 2t^2 + 5,5t – 2 , t = х + 2.
СРОЧНО ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!
Program Temperature;
var T: array[1..12] of real;
I: integer; Tsred: real;
begin
for I:=1 to 12 do
begin
write('T[', I:2,']= ');
read (T[I])
end;
Tsred:=0;
for I:=1 to 12 do
Tsred:=Tsred+T[I];
Tsred:=Tsred/12;
writeln( 'Среднегодовая температура = ', Tsred:6:2, ' градусов');
for I:=l to 12 do
begin
Dt[I]:= T[I] - Tsred;
writeln('Dt[',I:2,']=', Dt[I]:6:2)
end.
Где здесь ошибка??? Пишет ожидался оператор.
Рассмотрите каждый из следующихРассмотрите каждый из следующих объектов как систему, взаимодействующую с окружающей средой. Опишиту входы и
выходы этой системы.
а) Лук, выращиваемый на грядке
Помогите составить в правильном порядке)
1)C:A+B
2)begin
3)read (A,B);
4)end
5)var
6)A,B,C:integer;
7)program sum
8)write (С)
9)write (введите 2 числа) ;
Читайте также
Вася, Илья, Коля, Никита и Петя решали задачи по информатике. Всего было 5 задач. Кто сколько задач решил, если известно, что: Вася и Коля решали все
задачи вместе; Петя решил на 2 задачи больше, чем Вася; Илья решил меньше задач, чем Коля; Никита решил больше задач, чем Илья, но меньше, чем Вася; каждый решил хотя бы по одной задаче.
1)Полет в самолете. 3 четверти пассажиров имеют билеты 2 класса,стоимостью х фунтов каждый,остальные пассажиры имеют билеты 1 класса,которые стоят в 2
раза дороже 2 класса.Найти сумму денег полученных авиакомпанией от продажи данных билетов.
Прошу помогите пожалуйста решать на паскале..
Задача. Год является високосным, если его номер кратен 4,однако из кратных 100 високосными являются лишь кратные 400. Например 1700,1800,1900-не
високосные, а 2000 високосный. Дано натуральное число n. Определить, является ли високосным год с таким номером? Решить на паскале, уровень 8 класса!
Cоставьте программу выводящую на экран все числа от -10 до 10, а также их модули (зАДАЧА 1) 8 КЛАСС!!! (2 ЗАДАЧА) CОСТАВЬТЕ ПРОГРАММУ РИСОВАНИЯ
ОКРУЖНОСТЕЙ С ЦЕНТРОМ В ТОЧКЕ (200,200) И РАДИУСОМ 10, 20, 30, 40, 50 (ПРИМЕНИТЕ КОМАНДУ 'For') 8 КЛАСС!!!
Вы находитесь на странице вопроса "решить в паскале задачу (8-9 класс):", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.