Предмет: Информатика,
автор: lercomm
очень важно!! помогите пожалуйста
задача по информатике
в паскале
*с клавиатуры вводится натуральное число 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.
вот так попробуй,в синтаксисе могла быть ошибка, мне просто убегать надо....
спасибо огромное
Похожие вопросы
Предмет: Другие предметы,
автор: Dianka2006love
Предмет: Французский язык,
автор: lol54321z
Предмет: Русский язык,
автор: ganzina1
Предмет: История,
автор: 9black9