<span>Считать это хорошо поставленной задачей нельзя ни в коем случае. Это просто пустые слова, если "не знаю куда" это не название какого-то места, "не знаю что" не название предмета.</span>
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
23. Рабочий стол: Заставка; Темы; Оформление; Цветовые схемы; Разрешение.
Мой компьютер: Версия Windows; Система; Сведения об активации; Оборудования; Быстродействие.
Мои документы: Тип; Размещение; Размер; Размещение конечной папки;
Ответ:
реализовал на паскале
Объяснение:
program While22;
var i, num:integer;
isSimple : boolean;
Begin
isSimple :=true;
readln(num);
if (num mod 2 = 0) and (num<>2)then isSimple := false;
i:=3;
while i*i<=num do
begin
if (num mod i=0)then begin isSimple := false;break; end;
i:=i+2
end;
writeln(isSimple)
end.