Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Ответ:это ложь
Объяснение:т.к. 3не может быть больше 4-ёх, а дальше думаю и смотреть нечего
Римские цифры
(Русские буквы - а,б,в,г и т.д.;
Латинские - a,b,c,d etc.;
Арабские цифры - 1,2,3,4 и т.д.;
Римские - <span>I <span>II </span><span>III </span><span>IV </span><span>V </span><span><span>VI и т.д.)</span></span></span>
Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>