с информатикой. Нужны программы на Python Задание: напишите программы, которые вычисляют суммы: 1) первых n натуральных чисел; 2) квадратов первых n натуральных чисел; 3) всех чётных чисел в диапозоне от 1 до n; 4) всех двузначных чисел
begin for i := 1 to 5 do read(ar[i]); window.IsFixedSize := true; window.Init(0, 0, 800, 800, clDarkGray); window.CenterOnScreen; SetFontSize(32); for i := 1 to 5 do c := c + ar[i].ToString.Length; for i := 1 to 7 do writeln; write(' ':33 - c); for i := 1 to 5 do begin if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then begin SetFontColor(clred); write(ar[i]); end else if(ar[i] mod 10 = 0) then begin SetFontColor(clblue); write(ar[i]); end else if(ar[i] mod 2 <> 0) then begin SetFontColor(clyellow); write(ar[i]); end end; end.
Альтернатива интернету конечно же есть к примеру чтение книг. Живопись. Катание на велосипеде,самокате,роликах. Интернет называют уникальным изобретением потому что: 1)Благодаря интернету и поисковым машинам можно найти то, о чём даже не подозреваешь. 2)Просто нужно ввести любое словосочетание и ву'а'ля. Также благодаря ему мы можем общаться/обмениваться информацией в различных социальных сетях. 3)Если гипотетически представить, что интернет пропадёт - думаю, это станет глобальной катастрофой в истории человечества.
var
i, c: integer;
ar: array[1..5]of integer;
begin
for i := 1 to 5 do read(ar[i]);
window.IsFixedSize := true;
window.Init(0, 0, 800, 800, clDarkGray);
window.CenterOnScreen;
SetFontSize(32);
for i := 1 to 5 do c := c + ar[i].ToString.Length;
for i := 1 to 7 do writeln;
write(' ':33 - c);
for i := 1 to 5 do
begin
if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
begin
SetFontColor(clred);
write(ar[i]);
end
else if(ar[i] mod 10 = 0) then
begin
SetFontColor(clblue);
write(ar[i]);
end
else if(ar[i] mod 2 <> 0) then
begin
SetFontColor(clyellow);
write(ar[i]);
end
end;
end.
Интернет называют уникальным изобретением потому что:
1)Благодаря интернету и поисковым машинам можно найти то, о чём даже не подозреваешь.
2)Просто нужно ввести любое словосочетание и ву'а'ля.
Также благодаря ему мы можем общаться/обмениваться информацией в различных социальных сетях.
3)Если гипотетически представить, что интернет пропадёт - думаю, это станет глобальной катастрофой в истории человечества.