Program zhn; var n,i,sum:integer; begin write('Введите значение: '); readln(n); for i:=1 to n do begin if n mod i = 0 then sum:=sum+1; end; if sum = 2 then writeln('Число ',n,' является простым.') else writeln('Число ',n,' НЕ является простым.');
Так как по условию задачи нам не нужно выводить на экран считанную информацию с клавиатуры,то вывод переменной нам будет необходим только в случае обращения по имени.
var a:string; begin writeln('Как тебя зовут ?'); readln(a); writeln('Привет ',a,' !'); writeln('Сколько тебе лет? '); readln(); writeln('Какой у тебя любимый предмет в школе?'); readln(); writeln('Какая у тебя любимая книга'); readln(); end.
Если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант:
var a,b,c,d:string; begin writeln('Как тебя зовут ?'); readln(a); writeln('Привет ',a,' !'); writeln('Сколько тебе лет? '); readln(b); writeln('Какой у тебя любимый предмет в школе ?'); readln(c); writeln('Какая у тебя любимая книга ?'); readln(d); write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d); readln(); end.
Машинно-независимые языки удобны в использовании для широкого круга пользователей, от человека не требуется полного знания специфики компьютеров; алфавит алгоритмического языка значительно шире алфавита машинного языка, что существенно повышает наглядность текста программы; набор операций, допустимых для использования, не зависит от набора машинных операций, а выбирается из соображений удобства формулирования алгоритмов решения задач определенного класса; формат предложений достаточно гибок и удобен для использования, что позволяет с одного предложения задать достаточно содержательный этап обработки данных; требуемые операции задаются с общепринятых математических обозначений, а не для каждого компьютера отдельно; данным в алгоритмических языках присваиваются индивидуальные имена, выбираемые программистом; в языке может быть предусмотрен значительно более широкий набор типов данных по сравнению с набором машинных типов данных.
var
n,i,sum:integer;
begin
write('Введите значение: ');
readln(n);
for i:=1 to n do begin
if n mod i = 0 then sum:=sum+1;
end;
if sum = 2 then writeln('Число ',n,' является простым.')
else writeln('Число ',n,' НЕ является простым.');
end.