Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5.
<em><u>Турбо Паскаль 7.01</u></em>
uses Crt;
var
n:longint;
begin
ClrScr;
Write('n='); Read(n);
if n mod 10=0 then Writeln('Число кратно 10 и 5')
else Writeln('Число не кратно 10 и 5');
ReadKey
end.
В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.
Канада, Бразилия, Япония - морские державы
Канада, Бразилия, США - страны Западного полушария (страны Северной и Южной Америки)
Канада, Мексика, США - страны Северной Америки
Амазонка, Енисей, Нил - крупнейшие реки мира
Волга, Амур, Иртыш - реки России
Лаура, Эльба, Висла - реки Европы
Принтер, монитор, клавиатура - устройства ПК
Клавиатура, сканер, мышь - устройства ввода
Берёза, жасмин, ромашка - растения
Яблоня, груша, вишня - плодовые культуры
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.