воде числа 125:
Введите целое число: 125
число не двузначное
Целочисленная арифметика
А div B
div деление нацело (остаток отбрасывается)
A mod B
mod остаток от деления
Например:
15 div 2 7
15 mod 2 1
17 div 3 5
17 mod 3 2
Задание 4.
Если целое число m делится на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение "m на n нацело не делится".
Задание 1
2 вариант
Program Primer1;
Var f,k,x:real;
Begin
Readln(k,x);
If kx
Then f:kx
Else f:kx;
Writeln(f,f);
End.
Задание 2
Program Primer1;
Var a:real;
Begin
Readln(a);
If a0
Then a:a1
Else a:a-2;
Writeln(a,a);
End.
Задание 3.
Program c2;
var a:integer;
begin
write (Введите целое число: );
readln (a); исходное число
if (a10) and (a10)и(a
Страницы: << < 3 | 4 | 5