Відповідь: 1) если m+3=n-1=0- , m=-3, n=1 x
2) m=-3, x -
3) если m=/-3, x=n-1/m+3
Пояснення:
вот
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
Например: а присвоить 23; а:=23;
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
1. Одноранговая локальная сеть, где все компьютеры объединены в локальную сеть и равноправны (имеют одинаковые права)
2. Локальная сеть с выделенным сервером - где так же компьютеры объединены в локальную сеть, но один компьютер является главным среди всех и более мощный и производительный.
3. посмотри в классе как соединены компьютеры и сделаешь вывод - в основном там бывае первый случай (одноранговая сеть с топологией звезда), а функции просты - можно пользоваться общими локальными папками и т. п.
4. тоже поспрашивай, кто у вас является поставщиком сетевых услуг (интернета). В школе сеть в классе делает или инженер школы (сис. админ.) или учитель информатики