40 ! сделать паскаль 1.составьте программу, которая вычисляет сумму всех нечетных, двузначных чисел; 2.дано натуральное число n. вычислите n5; 3.дано число n. напечатать натуральные числа, квадрат которых не превышает n.

212

498

Посмотреть ответы 3

Ответы на вопрос:

макс190

Информатика

4,4(20 оценок)

1. var s,i: integer; begin s: =0; for i: =10 to 99 do if i mod 2=1 then s: =s+i; writeln('s = ',s); end. результат: s = 24752. без использования стандартных функций: var n,p,i: integer; beginreadln(n); p: =1; for i: =1 to 5 do p: =p*n; writeln(n,'^5 = ',p); end.пример: 22^5 = 323.var n,i: integer; beginreadln(n); i: =1; while i*i< n do begin writeln(i,' (',i,'^2 = ',i*i,')'); i: =i+1; end; end.пример: 301 (1^2 = 1)2 (2^2 = 4)3 (3^2 = 9)4 (4^2 = 16)5 (5^2 = 25)

8orzakt

Информатика

4,4(58 оценок)

1) var i: byte; sum: integer; begin sum : = 0; i : = 11; while i < 100 do begin sum : = sum + i; i : = i + 2; end; writeln('сумма нечетных элементов = ', sum); readln; end. 2) var n: real; begin write('введите n: '); readln(n); n : = exp(ln(n) * 5); writeln(n); readln; end. 3) var n: integer; i: integer; begin write('введите n: '); readln(n); i : = 0; for i : = 1 to n do if sqr(i) < = n then write(i, ' ') else break; readln; end.

Ангелочек319

Информатика

4,5(73 оценок)

//dev-c++ (c) #include < stdio.h> int main(void) {int d1,d2; scanf("%d %d",& d1,& d2); printf("%f",0.5*d1*d2); return 0; } пример ввода: 3 2 пример вывода: 3.000000