Информа́тика<span> наука</span><span> о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации</span><span>, обеспечивающих возможность её использования для принятия решений</span>
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer; begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
Я тут решил попробовать вспомнить старое, но увы не получилось всё сделать правильно, вроде код ниже правильный, но где написано перед строкой "//" это я пометил, что не знаю как там писать. Попробуй сам изменить/дописать код:
program hello; var n, kd, d:integer; begin read(n); kd:=0; // d:=2...[sqrt(n)]; if n mod d = 0 then kd:=kd+1 else // d:=2...[sqrt(n)]; begin if kd = 0 then writeln('выв "простое"') else writeln('ыв "составное"') end; end.