сколько место займет файл в памяти компьютера размером 604 кб,305кб,2340кб? ?
271
413
Ответы на вопрос:
1) program dasf; var a,b,i,s: integer; begin writeln('введите четырёхзначное число'); readln(a); for i: =1 to 4 do begin s: =a mod 10+s; a: =a div 10 end; writeln('сумма цифр четырёхзначного числа: ',s); end.2)program sgsgsdfg; var a,b,c,a1,b1,c1: real; begin writeln('введите а'); readln(a); writeln('введите b'); readln(b); writeln('введите c'); readln(c); if (a=b) or (a=c) then a1: =a*a else a1: =a*2; if (b=a) or (b=c) then b1: =b*b else b1: =b*2; if (c=a) or (c=b) then c1: =c*c else c1: =c*2; writeln('полученные числа: а=',a1,' b=',b1,' c=',c1); end.3) program afgsdg; var n,a,b,i: integer; begin; writeln('введите число'); readln(a); writeln('введите степень'); readln(n); b: =a; for i: =2 to n do a: =a*b; writeln('число ',b,' в степени ',n,' равно ',a); end.
Популярно: Информатика
-
Fenef17.04.2020 22:27
-
александра789617.01.2022 11:33
-
ВиолаВиолеттик08.01.2023 11:54
-
GreenExtreme599514.01.2023 20:27
-
5786232768524.04.2021 09:15
-
sogianachkebia02.09.2021 05:32
-
Uknowmyname26.07.2020 18:54
-
mrusinova30.06.2022 21:03
-
VladimirOwl16.10.2020 04:46
-
Sofia878722.04.2020 15:02