Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
<span>артефакт,инстинкт,антарцит,оригинал</span>
Количество символов = 150*40*60 = 360000
Если для кодирования одного символа используется 8 бит (1 байт), то объем книги = 360000*8 = 2 880 000 бит = 360 000 байт
Using System;
// Написать программу, выводящую на экран таблицу квадратов
// четных чисел от 0 до 10 в убывающем порядке: 100, 81, 49...
// Составь блок-схему алгоритма, и напиши программу которая
// выводит на экране узор, состоящий из звездочек. Должно быть 20 строчек со звездочками так, чтобы в каждой последующей строке было на одну звездочку больше. Для вывода на экран строки, со- держащей N звездочек, используй команды
// String repeatedString = new String('*', N); Console.Write (repeatedString);
// Microsoft visual studio c#
namespace NoNamespace {
internal class Program {
private static void Main() {
SquaresOfNumbersDesc();
Stars(20, 10);
Console.ReadLine();
}
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();
}
}
}
Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192