Using System; // Написать программу, выводящую на экран таблицу квадратов // четных чисел от 0 до 10 в убывающем порядке: 100, 81, 49... // Составь блок-схему алгоритма, и напиши программу которая // выводит на экране узор, состоящий из звездочек. Должно быть 20 строчек со звездочками так, чтобы в каждой последующей строке было на одну звездочку больше. Для вывода на экран строки, со- держащей N звездочек, используй команды // String repeatedString = new String('*', N); Console.Write (repeatedString); // Microsoft visual studio c#
private static void SquaresOfNumbersDesc() { Console.WriteLine(); for (var i = 10; i >= 0; i = i - 2) { Console.Write("{0} ", i * i); } Console.WriteLine(); }
private static void Stars(int n, int start_stars) { Console.WriteLine(); for (var i = 0; i < n; i++) { Console.WriteLine(new String('*', start_stars + i)); } Console.WriteLine(); } } }
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); a.Println; var m:=n-1; var found:=false; for var i:=0 to m do begin for var j:=0 to m do if i=j then continue else begin for var k:=0 to m do if (k=i) or (k=j) then continue else if a[i]+a[j]+a[k]=0 then begin Println('Решение:',a[i],a[j],a[k]); found:=true; break end; if found then break end; if found then break end; if not found then Writeln('Нет нужной тройки чисел') end.
r:real;
function preob(n:integer):real;
begin;
preob:=sqrt(n)+n;
end;
begin
r:=preob(5)/2+preob(3)/2+preob(7)/2;
writeln(r);
end.