очень важно!! помогите пожалуйста
задача по информатике
в паскале
*с клавиатуры вводится натуральное число n из промежутка от 0 до 100. Найти и вывести на экран все простые числа от 0 до n*
503vicusya:
Решаю задачу!5 минут подождите!))
ок спасибо
в free pascal все работает правильно)
Ответы
Ответ дал:
1
var i,n:integer;
begin
writeln('введите число от 0 до 100');
readln(n);
for i:=1 to n do begin
writeln(i);
end;
end.
begin
writeln('введите число от 0 до 100');
readln(n);
for i:=1 to n do begin
writeln(i);
end;
end.
понять бы еще ахах, но спасибо вам огромное
writeln('введите число от 0 до 20');
readln(n);
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.
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.
вот так попробуй,в синтаксисе могла быть ошибка, мне просто убегать надо....
спасибо огромное
Вас заинтересует
2 года назад
2 года назад
7 лет назад
9 лет назад