Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K

@НЕваЖно · Регистрация: 03.11.2008

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

Попрошу полностью решить эти задачки.
Спосибо.
1. Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K.

@Arriba · 03.11.2008, 23:01

Вот 1:

Pascal

var n,k:integer;
begin
    WriteLn('vvedi N:');
    Readln(n);
    k:=0;
     repeat
       if k*3>=N then
         begin
            WriteLn('k=',k-1,' k*3=',(k-1)*3);
            k:=-1;
         end
       else
         k:=k+1;
     until k=-1;
    ReadLn;
end.

@НЕваЖно 2 / 2 / 0 Регистрация: 03.11.2008 Сообщений: 63
		1
	Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K 03.11.2008, 18:47. Показов 2529. Ответов 1 Метки нет (Все метки) Попрошу полностью решить эти задачки. Спосибо. 1. Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K. 0

	03.11.2008, 23:01

Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K

Решение