Предмет: Литература, автор: amaliashest

Какое растение отмечает конец весны?

Ответы

Автор ответа: alinaveselova480
2
Сирень...когда осыпается сирень - значит всена закончилась
amaliashest: Спасибо большое
amaliashest: Сирень
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Английский язык, автор: j8y37n7act
Прошу помочь с 3. Не могу разобраться дальше.
6 лет назад
Предмет: Физика, автор: Аноним
Определи, ток какой силы протекает в нагревательном элементе электрической плиты, если напряжение равно 220 В, а сопротивление -72 Om.

Результат вырази в единицах СИ, округли до целых, в первом окошке запиши значение, во втором - единицу измерения (запиши в русской раскладке клавиатуры).

Сила тока равна
6 лет назад
Предмет: Русский язык, автор: evdoeralaw
Пожалуйста по скорее
6 лет назад
Предмет: Математика, автор: элла1233
найдите координату середины отрезка с концами в точках А(-4)и В(12)
9 лет назад
Предмет: Информатика, автор: natsysan1
Задаю три массива: вопросы викторины, верные ответы, ответы, которые будут введены участниками. Ответы в основном из одного - двух слов. Все вопросы и ответы ввожу присваиванием, но когда пишу цикл на ввод ответа, то первый раз цикл срабатывает нормально, а последующие разы программа не требует ввода, то есть оператор read не работает. Что я сделала не так? Вот программа:

program m81337154u;
var i: integer;
ans:array [1..12] of string;
quest:array [1..12] of string;
answ:array [1..12] of string;
begin
writeln ('');
ans[1]:='';
ans[2]:='';
ans[3]:='';
ans[4]:='';
ans[5]:='';
ans[6]:='';
ans[7]:='';
ans[8]:='';
ans[9]:='';
ans[10]:='';
ans[11]:='';
ans[12]:='';
quest[1]:='';
quest[2]:='';
quest[3]:='';
quest[4]:='';
quest[5]:='';
quest[6]:='';
quest[7]:='';
quest[8]:='';
quest[9]:='';
quest[10]:='';
quest[11]:='';
quest[12]:='';
for i:=1 to 12 do begin
writeln ('Вопрос номер ', i);
writeln (quest[i]);
write ('Ваш ответ - ');
read (answ[i]);
if answ[i]=ans[i] then
writeln ('Ответ верный') else
writeln ('Ответ неверный, попробуйте снова');
writeln;
end;
writeln ('Congrats');
end.

Где-то есть ошибка? Или паскаль никогда не повторяет read в цикле?
9 лет назад