Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K

@bomj_v_paskale · Регистрация: 26.10.2011

Студворк — интернет-сервис помощи студентам

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K ( решите плз с помощью цикла и условия)

@Igor · 26.10.2011, 18:42

Pascal

uses crt;
var n,k,i,c:integer;
begin
write('N - ');
read(n);
write('K - ');
read(k);
c:=0;
for i:=10 to 99 do
begin
if (i=n) and (i mod 2=0) and (i mod k=0) then
c:=c+1;
end;
if c<>0 then
write('yes')
else
write('no');
end.

@bomj_v_paskale 0 / 0 / 0 Регистрация: 26.10.2011 Сообщений: 5
		1
	Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K 26.10.2011, 16:02. Показов 4306. Ответов 1 Метки нет (Все метки) Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K ( решите плз с помощью цикла и условия) 0

Опции темы

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K

Решение