128 = 2^7 значит 7 бит на символ
Общий обьем данных 7*180*2048 = 2 580 480 бит = 322 560 байт = 315 кб
................................
меняем plot_scatter на plot_bars, что бы вместо графика получить диаграмму
ПЕР
числа: РЯД 3 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО
Вывод.Цепь("Ни одно число не принадлежит интервалу.")
КОН
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.
Люди, раз уж выкладываете задания по программированию, то пожалуйста пишите желательный язык а то хрен вас пойми(это же программирование, а не предмет "Вангование") то ли вам Pascal, то ли вам С++ или же чего другого...
Ну да ладно.
Вот тебе на С++:
#include <iostream>
using namespace std;
int main()
int n;
cin>>n;
if(n%2==0)
{
cout<<n*2<<" chetnoe chislo";
}
else if(n%2!=0)
{
cout<<n*3<<" ne chetnoe chislo";
}
return 0;
}