Var
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно
22 11 11*2=5,1 jjjjjjjjjjjjjjjjjj
Есть следующий запрос, который считает количество абитуриентов, живущих в городах, название которых начинается с буквы "В":
SELECT COUNT(Ф.И.О.) FROM vedomost_abiturientov WHERE Местожительство LIKE "В*"
Надеюсь помог, удачи :)
Финикийский V век
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Правильный ответ: Г) <span>2,3,5,6,7,9,10,15,21,27</span>