Программа без синтаксических ошибок:
program asd;
var
a,b,c,n, k: longint;
const i=10; j=10;
begin
n:=10*i + 15*j;
write(n,'');
a:= 0;
write(a,' ');
b:= 1;
write(b,' ');
for k:=3 to n do begin
write(a+b,' ');
c:= b;
b:= a + b;
a:= c;
end;
readln
end.
Так как условия задачи нет, то делает ли программа то, что нужно - неизвестно.
program Vyv;
var a,b,i:integer;
begin
write('Введите начало диапазона a = ');
readln(a);
write('Введите конец диапазона b = ');
readln(b);
for i:=a to b do
if (i<0) and (i mod 2 = 0) then write(i,' ; ')
end.
Ответ:
Объяснение:
Мелкий чиновник, часто разъезжающий по служебным делам. От его лица идет описание героев повести. Любознательный молодой человек, с уважением относящийся к простым людям. Умеет найти подход к людям, любит слушать различные истории. Внимательный и наблюдательный человек, умеет сопереживать и сочувствовать чужому горю. Узнав о том, что у Дуни все сложилось хорошо, и она была на могиле отца, он прощает ее.
Краткое сочинение
4 мин = 240 сек
256000*240= 61440000 бит за 4 мин
61440000 бит = 7680000 байт = 7500 Кбайт
using System;
using System.Linq;
class Program {
static void Main() {
int n = Convert.ToInt32(Console.ReadLine());
int[] a = new int[n];
Random r = new Random();
for (int i = 0; i < a.Length; i++) {
a[i] = r.Next(-100, 101);
Console.Write(a[i] + " ");
}
Console.WriteLine();
int min = a.Min();
int im = 0, k = 0;
while (a[im] != min) {
if (a[im] < 0 && a[im] !=min) k++;
im++;
}
int nb = n - k;
int[] b = new int[nb];
int j = 0;
for (int i = 0; i < n; i++ ) {
if (i < im && a[i] < 0);
else {
b[j] = a[i];
j++;
}
}
foreach (int i in b)
Console.Write (i + " ");
}
}