program raf105;
var x,y:integer;
begin
writeln('Введите 2 числа');
readln(x,y);
if y<>0
then writeln(x,'/',y,'=',x/y)
else writeln('На ноль делить нельзя');
end.
<em>Написано на языке PascalABC.NET</em>
A)принять документы, аттестат, заявление и прочее.
добавить фамилию в списки, для вступительных экзаменов.
задачи должна решать:
<span>1. Допускать ли абитуриентов до вступительных экзаменов, исходя из всей имеющейся информации об абитуриенте.
Б)--------------
В) </span>1) Запрос на создание бд кодировки и общие настройки.
2) Создание таблиц, полей и описание их характеристик (длина в символах тип данных и тд. Также создаются ключи и индексы для полей.
3) Создание связей между таблицами.
<span>4) Заполнение БД данными.</span>
Program zadacha;
var
a,b,c:real;
begin
read(a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then
write('yes');
end.
64*52*52=173056 символов всего в книге
169 * 1024 = 173056 байт (в 169 кБайтах)
173056 / 173056 = 1 байт нужен для кодировки каждого символа
1 байт = 8 бит
Ответ:
2) 8 бит
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.