Uses crt;
var a : real;
p : boolean;
i : integer;
procedure haltproc;
begin
writeln('неверные данные');
writeln('a>=2');readln;
halt;
end;
begin
clrscr;
write('a=');readln(a);
if a<2 then haltproc;
if a=2 then begin
writeln2('простое');
readln;halt;
end;
p:=true;
for i:=2 to trunc(a-1) do
if a/i=trunc(a/i)
then p:=false;
if p=true
then write('простое')
else write('не простое');
readln;
end.
1) программа пропускает если ввести пароль basic иначе так и продолжает его спрагивать
2) запрашивает число, выводит его квадрат и куб через табуляцию, выводит его куб и квадрат прям без пробелов одним числом
выводит его куб и квадрат с текстовыми пояснениями
3) 5 линий слева направа нисходящие
4) 3 точки и 3 линии, одна вертикальная одна слева направа восходящая и из последней ее точки в в лево линия
5) построится подобие координатной плоскости и синусоида но точками и для угла от -10 до 10 радиан с шагом 0.01
Ответ: 22121
Пояснение:
1) 1*4 = 4.
2) 4*4 = 16
3) 16-3 = 13.
4) 13*4 = 52.
5) 52-3 = 49.
<em>1)</em> <em>Домашняя библиотека
</em>Номер - <em>счётчик</em>
Автор, Название - <em>текстовый</em>
Год, Полка - <em>числовой</em>
<em>2) </em><em>Погода
</em>День, Температура, Давление, Влажность - <em>числовой</em>
Осадки - <em>текстовый</em>
<em>3) </em><em></em><em>Школы
</em>Город, Директор, Адрес - <em>текстовый</em>
Номер, Телефон - <em>числовой</em>