В кабинете информатики
Запрещено:
1.Включать компьюторы без разрешения
2. Бегать по классу.
3. Ронять монитор, грязными руками трогать клавиатуру, с едой садится за компьютер.
в кабинете химии
Запрещено:
1.Трогать реактивы, пробовать на вкус, выливать на пол.
2. Бегать по классу.
3. Когда учитель проводит опыт, отвлекать от опыта!
Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
1 способ:
если x<=-1
то ...
иначе если x<0 то ...
иначе ...
2 способ:
если x<=-1 то ...
если (x>-1) И (x<0) то ...
если x>=0 то ...
Readln(a); readln(b);
c:=(a+b)/2;
write('Среднее арифметическое -', c);