сервис вопросов и ответовB:=125 mod 100 div 10
5-9 класс|
|
c:=125 mod 10
Samuraida
20 мая 2013 г., 5:24:16 (10 лет назад)
SKRIV
20 мая 2013 г., 6:43:11 (10 лет назад)
begin
writeln(125 mod 100 div 10 ,' ',125 mod 10);
end.
Ответ : 2 5
Ответить
Другие вопросы из категории
Читайте также
1) Исходное данное - целое трёхзначное число x. Выполните для x = 125 следующий алгоритм. a:=x div 100 b:=x mod 100 div 10
c:=x mod 10
s:=a+b+с.
Чем является результат s этого алгоритма?
2) Определите значение целочисленных переменных x и
y после выполнения фрагмента алгоритма.
x:=336
У:=8
x:=x div y
y:=х mod у
С помощью операции div вычисляется целое частное, с помощью операции mod - остаток.
Исходное данное - целое трёхзначное число x. Выполните для x=125 следующий алгоритм. a:=x div 100 b:=x mod 100 div 10 c:=x
mod 10
s:=a+b+c.
Чем является результат S этого алгоритма?
Найдите выведите на экран все трехзначные числа,кратные 20,сумма цифр которых равны сумме цифр частного от деления их на 20 Может так
>
uses crt;
var b,c,d,t,i,s,k:integer; o:real;
begin
s:=0;
for k:=100 to 1000000000 do
begin
b:=k mod 10;
c:=k div 100;
d:=(k mod 100)div 10;
t:=d+b+c;
o:=(b div 20)+(c div 20)+(d div 20);
if ((k mod 20)=0) and (t=o) then s:=s+1;
end;
writeln('s=',s);
end.
Помогите, пожалуйста
Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот ,что дальше не знаю
program dzkan;
var x,a,b,c:integer;
begin
writeln(Введите трехзначное число');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
Выполняется ли равенство:
(264 mod 100) div 10 = (368 div 10) mod 10
Вы находитесь на странице вопроса "B:=125 mod 100 div 10", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.