Циклы и массивы
Уроки Паскаль
Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».
В строке №8 используется операция Div. Это операция деления нацело, т. е. в результате получится целое число без остатка. Если 17 разделить на 3, то получится 5,66666… Здесь - целое число 5, оно и будет результатом операции div.
Строка №10. Операция Mod вычисляет остаток от целочисленного деления. Если мы разделим 17 на 3, то получится 5 – целое число и 2 – остаток. Таким образом, результатом операции Mod будет число 2
Теперь запишем нашу программу в Паскале и и запустим ее.
Дополнение к материалу.
Правила приоритета при выполнении операций в Паскале.
- Сначала выполняются действия над переменными, которые стоят в скобках.
- Затем вычисляются функции.
- Затем умножение и деление.
- Затем сложение и вычитание.
Операции, которые имеют одинаковый приоритет (сложение и вычитание, деление и умножение) выполняются слева направо, т.е. в порядке очереди.
Популярные уроки
- Тип данных Boolean. Значения True, False в Pascal.
- Textcolor, Window, Textbackground в Pascal.
- Процедуры Dec и Inc в Pascal.
- Функции trunc, round в Pascal.
- Тип данных Char. Функции Ord, Chr.
- Функции Pred, Succ в Pascal.
- Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.
- Умножение, деление, сложение, вычитание вещественных чисел в Pascal.
- Логические операции с целыми числами.
- Строковые константы в Pascal.
Комментарии
И задачу тебе не нужно решать.
А если хочешь научиться, то начинай с Ассемблера.
вижу никому не нравиться Ассамблер
8 строка: C := trunc(A/B);
10 cстрока: C := A - B * trunc(A/B);
var
x, y1, y2, y: integer;
begin
write ('Введите двухзначное число: ');
readln (x);
y1:=(x mod 10)*10;
y2:=x div 10;
y:=y1+y2;
write ('Число-перевёр тыш: ', y);
readln;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b: integer;
n: word;
begin
readln(n);
a:=n mod 10;
n:= n div 10;
b:=n mod 10;
n:= n div 10;
n:=a*10+b;
writeln(n);
readln;
end.
uses crt;
var x,c,z,y:integer;
begin
write ('введите двухзначное число. ');
read(x);
z:=10;
y:=x div z;
c:=x mod z;
writeln (c,y);
readln
end.
var
x, y: integer;
begin
write ('Введите число: ');
readln (x); //вводим 5264
y:=(x div 100)-(((x div 100) div 10)*10);
write ('Третья цифра справа ', y);
end.
Программа всегда будет говорить, какая цифра стоит третьей
a,b,i:integer;
begin
readln(a);
a:=a div 10;
b:=a div 10;
a:=a div 10;
b:=a mod 10;
writeln(b);
end.
Вот тебе схема как это делать в дальнейшем:
Допустим,что нам даны два числа x и y;
1)X mod Y=F;-Нам нужно узнать,что же за число получится при вычислении остатка от целочисленного деления;
2)X div Y=Z;Z-это результат целочисленного деления;
3)Z*Y=G;G-число,которое получилось в результате умножения результата целочисленного деления на число Y(Y дан нам в исходном выражении);
4)X-G=F;Где F конечный результат.
Надеюсь,что помог тебе.
дано два цэлых числа: A, B. проверить истинное ли выражение " Каждое ис чисел А,В - непарное"
var
A, B: integer;
begin
write('Введите A и B: ');
read(A,B);
writeln('Справе дливы неравенства A > 2 и B ≤ 3 - ',(A > 2) and (B = 0) or (B < -2));
end.
Boolean6. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Справедливо двойное неравенство A < B < C».
var
A, B, C: integer;
begin
write('Введите A, B и C: ');
read(A,B,C);
writeln('Справе дливо двойное неравенство A < B < C - ',(A < B) and (B < C));
end.
Boolean7°. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число B находится между числами A и C».
var
A, B, C: integer;
begin
write('Введите A, B и C: ');
read(A,B,C);
writeln('Число B находится между числами A и C - ',((A < B) and (B < C)) or ((A > B) and (B > C)));
end.
Boolean8. Даны два целых числа: A, B. Проверить истинность высказывания: «Каждое из чисел A и B нечетное».
var
A, B: integer;
begin
write('Введите A, B: ');
read(A,B);
writeln('Каждое из чисел A и B нечетное - ', (A mod 2 0) and (B mod 2 0));
end.
Boolean9. Даны два целых числа: A, B. Проверить истинность высказывания: «Хотя бы одно из чисел A и B нечетное».
var
A, B: integer;
begin
write('Введите A, B: ');
read(A,B);
writeln('Хотя бы одно из чисел A и B нечетное - ', (A mod 2 0) or (B mod 2 0));
end.
Boolean10°. Даны два целых числа: A, B. Проверить истинность высказывания: «Ровно одно из чисел A и B нечетное».
var
A, B: integer;
begin
write('Введите A, B: ');
read(A,B);
writeln('Хотя бы одно из чисел A и B нечетное - ', (A mod 2 0) xor (B mod 2 0));
end.
Boolean11. Даны два целых числа: A, B. Проверить истинность высказывания: «Числа A и B имеют одинаковую четность».
var
A, B: integer;
C: boolean;
begin
write('Введите A, B: ');
read(A,B);
C := ((A mod 2 0) and (B mod 2 0)) or ((A mod 2 = 0) and (B mod 2 = 0));
writeln('Числа A и B имеют одинаковую четность - ', C);
end.
Boolean12. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Каждое из чисел A, B, C положительное».
var
A, B, C: integer;
begin
write('Введите A, B и C: ');
read(A,B,C);
writeln('Каждое из чисел A, B, C положительное - ',(A > 0) and (B > 0) and (C > 0));
end.
Заданы три различных числа k,l,m/Сколько нечётных чисел среди них,если таких чисел нет-выдать сообщение на экран
const k=10; // Количество чисел сколько надо
var d: array [1..k] of integer;
l, m: integer;
begin
writeln('Введит е k чисел');
for i:= 1 to k do
read (d[l]);
for l:= 1 to k do
write(d[l]:3); writeln;
s1:=0;
for l:=1 to k do
if d[l] mod 2=1 then
begin
s1:=s1+d[l];
end;
writeln('Cumma:=',s1);
end.
Сначала выпишем все двух значные числа, которые делятся на 17 и на 23.
На 17: 17, 34, 51, 68, 85.
На 23: 23, 46, 69, 92.
Начнем составлять возможные концовки чисел:
6
68
685
6851
68517 - дальше никакую цифру всунуть нельзя.
6 - такое уже было.
69
692
6923
69234
692346 - но это то же самое, что просто 6, т. к., если двигаться влево, то мы получим последовательно сть из цифр ...692346923469 234... до нужного нам кол-ва.
И того получается, что у нас выйдут такие числа.
...69234692346
...692346923468
...692346923468 5
...692346923468 51
...692346923468 517
...692346923469
...692346923469 2
...692346923469 23
...692346923469 234
9 чисел. Кстати, тут неважно 2013-значное оно или какое-то другое. Одинаковое кол-во получится и с пятизначным и с 1000000-значным . Удачи.
if not(odd(x)) then writeln(x);
for i := n downto 1 do
if odd(x) then writeln(x);
еше один вариант :
for i := 1 to n do
if (x mod 2 = 0) then writeln(x);
for i := n downto 1 do
if not(x mod 2 = 0) then writeln(x);
- Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 39 оканчиваются на 3.
- Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 26, запись которых в троичной системе счисления оканчивается на 22.
c:=a div b;
c:=a mod b;
В чем проблема
С какими значениями Х следующие равенства будут верны?
begin
writeln('Введит е два числа для проверки');
readln(a,b);
if a mod b=0 then writeln('Делитс я')
else writeln('Не делится');
end.
- * - - ____
b d cd
f, a, b, c, d: real;
begin
Write('A='); Readln(a);
Write('B='); Readln(b);
Write('C='); Readln(c);
Write('D='); Readln(d);
f := a / b * b / d - (a * b - c) / c * d;
Writeln('F=', f:0:5);
Readln
end.
s: string;
begin
read(s);
if length(s) >= 4 then
writeln(s[3] + s[4] + s[1] + s[2]);
end.
z будет равно 9. Запомните ! При использовании оператора div дробная часть будет отброшена!
вводится:5 4
выводится:2
помогите срочно!!!!!!
Пусть q -- неполное частное, а r -- остаток от деления 2015 на n, где 1≤n≤1000. Ясно, что q≥2, так как 2015/1000>2. Про остаток мы знаем, что r≤n−1, то есть 2015=nq+r≥q(r+1 )+r≥2(r+1)+r=3r +2. Следовательно, r≤671. Равенство достигается при делении на n=r+1=672. Поэтому самый большой остаток равен 671.
begin
readln(n);
a:=(n mod 100) div 10;
writeln(a);
end.
z= y*y mod 2
Как решить?
над переменными,кот орые описаны как real.
if (n mod 2=0)and(n mod 3=0)and(n mod 5=0) then.. {число делится и на 2, и на 3 и на 5}
{или}
if n mod(2*3*5)=0 then..
uses crt;
var x,c,y:integer;
begin;
clrscr;
writeln('введите число');
readln(x);
writeln('умножить на...');
readln(y);
c:=x * y;
writeln('=',c);
end.
тип что б с числа выкидало цифру 2
WriteLn(100 div 3,' чисел кратных 3');
ReadLn;
end.
Получается я должен писать либо на ассемблере, либо на Pyton. Там есть. Но на Pyton не имеет беззнаковых типов. Однако Pyton не имеет фиксированной размерности. Там выполняются вычисление с неограниченной точностью. Через библиотеку конечно ибо процессор так не умеет.
Однако для пользователя это выглядит так, как буддто вы непосредственно работатете с автоматически увеличивающими размер числами и повышающими точность если надо. Но если вы хотите такую операцию не на Pyton, то вам придётся писать ан ассемблере.
uses crt;
var x,del:integer;
begin
write('Введите x: '); readln(x);
write('Делители: ');
for del:=1 to x do
if (x mod del)=0 then
write(del,' ');
writeln;
end.
типо вычитание использовать а я не могу, понимаю но не могу
if a*bb do begin
Dec(a,b); Inc(c);
end;
WriteLn('частно е: ',s*c,', остаток: ',s*a);
program summa;
var x,y:integer;
begin
writeln ('Суммы чисел первой сотни,которые делятся на 3');
y:=0;
for x:=1 to 99 do
Begin
if (x)mod(3)=0 then y:=y+x;
end;
writeln ('Сумма y=',y);
end.
Var
n,i,s:integer;
begin
n:=0;
for i:=1 to 100 do
begin
n:=n+3;
s:=s+n;
end;
writeln(s);
end.
//2
Var
i:integer;
r:integer;
begin
for i:=500 to 700 do
r:=r+i;
writeln(r);
end.
begin
a:= 2154; c:= a div 100; a:= a mod 100; c:= a-c;
writeln (c)
end.