Помогите с паскалем
10-11 класс
|
3. Составить программу, которая бы по последней цифре многозначного числа выдавала бы одно из сообщений:
число не делится ни на 2, ни на 5
число делится только на 2
число делится только на 5
число делится и на 2, и на 5.
var a:string;
b:integer;
begin
readln(a);
b:=strtoint(a[length(a)]);
if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln('число не делится ни на 2, ни на 5');
if (b mod 2 = 0) and (b mod 5 <> 0) then writeln('число делится только на 2');
if (b mod 2 <> 0) and (b mod 5 = 0) then writeln('число делится только на 5');
if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 5');
end.
Другие вопросы из категории
1). отрицание, затем операция
2). операция затем отрицание
3). операция над переменой
Читайте также
1. Вычислите выражение при заданных константах: A=16.5; b=3.4; x=0.61;
2.
Составить программу вычисления значения функции. На экран вывести функцию (записанную на Паскале) вместе с результатом.
у={a+b+cx^2,если 1<=x<2
(a*sin(xb))^2,если 2<=x<3
под корнем |a+bx^2|+c ,если 3<=x<4
a*ln|b+c/2x| ,если 4<=x<5
e^esinx+c^3 ,если 5<=x<6
Пожалуйста...
Треугольник задан координатами своих вершин.Составить программу вычисления площади треугольника.
Даны действительные положительные числа x