Var best, m, s,i: integer; begin best : = 10000000; for i: = 1 to 3 do begin write('min sec = '); readln(m, s); if best > m * 60 + s then best : = m * 60 + s; end; writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.
Ответ дал: Гость
#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }
Ответ дал: Гость
в не указан шаг изменения x , допустим он равен 1
var
x,y: real;
begin
x: =1;
while x< =10 do
begin
y: =1/x-5;
writeln(y: 8: 2);
x: =x+1;
end;
end.
Ответ дал: Гость
program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Популярные вопросы