Очень важно!! помогите пожалуйста задача по информатике в паскале *с клавиатуры вводится натуральное число n из промежутка от 0 до 100. Найти и вывести на экран все простые числа от 0 до n*
Решаю задачу!5 минут подождите!))
ок спасибо
в free pascal все работает правильно)
Var i,n:integer; begin writeln('введите число от 0 до 100'); readln(n); for i:=1 to n do begin writeln(i); end; end.
понять бы еще ахах, но спасибо вам огромное
writeln('введите число от 0 до 20'); readln(n);
а как катет проверять не знаю) пожалуйста)
я вот эту сама сейчас решаю, она легче остальных, поможете? *с клавиатуры вводится 5 целых чисел. определить является ли сумма квадратов этих чисел частным числом, если да то возвести ее в квадрат и разделить на 5, если нет то умножить на 10 и отнять 1000. результат вывести на экран*
что значит частным числом?)
ой "чётным" числом
решу)
var a,b,c,d,e,l,p:integer; begin writeln('введите числа a,b,c,d,e'); readln(a,b,c,d,e); l:=a*a+b*b+c*c+d*d+e*e; if l mod 2 = 0 then begin p:=(l*l*l )/5 ; writeln (p);end; else begin z:=(l*10)-1000 ;writeln(z);end; end.
вот так попробуй,в синтаксисе могла быть ошибка, мне просто убегать надо....
спасибо огромное