Ответы на вопрос:
It-исследователь - разработка. да, думаю во многих работах компьютер востребован.
1) var k: integer; begin for k: =1 to 5 do write(i*2: 4); readln end. 2) begin writeln((10+15)*(15-10+1)/2); readln end. или begin writeln(75); readln end. 3) var a,n: integer; begin readln(n,a); if n mod a = 0 then writeln('делится нацело') else writeln('не делится нацело'); readln end. 4) var n: integer; begin readln(n); writeln(trunc((sqrt(4*(n+1)+1)-1)/2+0.9999)); readln end;
Популярно: Информатика
-
Imdoingfinetoday12327.03.2022 14:20
-
Linazhurenkova05.05.2020 11:48
-
Рустам200909.01.2023 01:20
-
хочузнать201820.05.2022 01:10
-
aliyaulanova117.05.2023 20:03
-
risik1205super08.04.2023 16:16
-
nezandenzar16.07.2021 16:24
-
Leoapps11.10.2022 04:31
-
Weirdy14.09.2020 14:37
-
хава99327.10.2022 15:17