Ох и намудрил с этой программой))
program school;
var a:char;
b:real;
c,d:boolean;
begin
Writeln ('Введите пол (м или ж) и количество учеников');
repeat
write ('Пол - '); readln (a);
if upcase(a)='Ж' then c:=true;
if upcase(a)='М' then c:=true;
if c=true then write else
writeln ('Вы должны ввести использовать символы "м" или "ж"');
until c=true;
repeat
write ('Количество учеников данного пола от 5 до 30 - '); readln (b);
if b<5 then d:=false else d:=true;
if b>30 then d:=false else d:=true;
if d=true then
begin
if upcase(a)='Ж' then writeln ('В классе сейчас ',b,' девоч.');
if upcase(a)='М' then writeln ('В классе сейчас ',b,' мальч.');
end;
until d=true;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите стандартные инструменты окна программы 1. 2. 3. 4. 5. 6.
думаю, что Россия великая страна. Я думаю так, потому что я изучаю историю и знаю, что Россия во все времена оказывала влияние на мировое развитие. Она одна из великих держав мира.
В Росссии богатая культура и наследие. Именно в России самые лучшие ученые и мастера искусства. Книги Пушкина и Достоевского переведенына десятки языков.
История России богата тайнами. И не всегда мы видели только героев. Есть немало примеров отрицательных. Каждый ученик знает времена Ивана Грозного, Пугачева и Распутина.
В России есть немало больших городов. Это Москва, наша столица, Санкт Петербург, бывшая столица, Екатеринбург и другие.В Москве много исторических памятников. Но больше всего их в Санкт -Петербурге. Россияне называют Санкт -Петербург и Царское Село "музеем под открытым небом".
Россия богатая страна. Здесь много полезных ископаемых.
Я горжусь своей страной.