сервис вопросов и ответовПаскаль
10-11 класс|
|
Найти произведение двух средних цифр четырехзначного числа.
Cbr1000rr
11 окт. 2014 г., 7:22:35 (9 лет назад)
Gaykas
11 окт. 2014 г., 9:47:05 (9 лет назад)
var
n, p: integer;
begin
Write('Введите четырехзначное целое положительное число: ');
Readln(n);
p := (n div 10) mod 100; {осталось двухзначное число из нужных цифр}
p := (p div 10) * (p mod 10);
Writeln('Произведение второй и третьей цифр: ', p)
end.
Тестовое решение:
Введите четырехзначное целое положительное число: 1984
Произведение второй и третьей цифр: 72
Ответить
Другие вопросы из категории
какое логическое выражение равносильно выражению ¬(¬A \/ B) \/ ¬C 1) (A /\ ¬B) \/ ¬C 2) ¬A \/ B \/ ¬C 3) A \/ ¬B \/ ¬C 4)
(¬A /\ B) \/ ¬C
Помогите написать в паскале!
Ввести три целых числа
x, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
Сообразил только как определить чётное или нечётное число а как дальше не могу понять!
program Lab2;
var x,y,z: integer;
Begin
Writeln ('Введите число');
Readln (x);
if x mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
Writeln ('Введите число');
Readln (y);
if y mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
Writeln ('Введите число');
Readln (z);
if z mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
end.
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Рассказать и показать на примере Паскаль: 1) Что такое absolute и для чего нужна? 2) Что такое asm и для чего нужна? 3) Что такое
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Прошу переделать код программы с языка Паскаль на С++.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;
Вы находитесь на странице вопроса "Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.