1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.
using System;
namespace ConsoleApplication55{ class Program { static void Main(string[] args) { link: Console.Write("Введите кол-во элементов числовой последовательности: "); int kol = Convert.ToInt32(Console.ReadLine()); if (kol > 100 || kol < 0) goto link; Random ran = new Random(); int[] array = new int[kol]; Console.WriteLine("\nПоследовательность чисел в строчку: "); for (int i = 0; i < array.Length; i++) { array[i] = ran.Next(1, 1000); Console.Write(array[i] + " "); } Console.Write("\n\nПоследовательность чисел, где каждое с новой строки:\n"); for (int i = 0; i < array.Length; i++) Console.Write(array[i] + "\n"); Console.ReadKey(); } }}
Смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь него рандомные(случайные) числа с периодом от 1 до 1000. После этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в С# это "\n"), в Паскале это writeln и т.д.