ответ:
var s, s1: string;
begin
writeln('как тебя зовут? ');
readln(s);
writeln(', ', s, '. а ты любишь читать? (да/нет).');
while true do begin
readln(s1);
if s1 = 'да' then begin
writeln('хорошо, книга – источник знаний.');
break;
end else if s1 = 'нет' then begin
writeln('плохо, нужно читать книги! ');
break;
end else
writeln(s, ', ответь да или нет.');
end;
end.
объяснение:
это один из вариантов - бесконечный цикл с break - выхода из цикла в случае правильного ответа
ответ:
var
a1, a2, a3: integer;
begin
write ('введите три числа: ');
readln (a1, a2, a3);
if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then
writeln(a1)
else
if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then
writeln(a2)
else
writeln(a3);
end.
объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
слово вводится с клавиатуры латиницей(максимум 19 символов)
#include < iostream> using std: : cout; using std: : cin; using std: : endl; #include < cstring> using std: : strlen; using std: : strcat; #include < iomanip> using std: : setw; int main(){ char s[20]; cout < < "enter the word: "; cin > > setw(20) > > s; char s2[strlen(s) * 3 + 1]; for(int i = 0; i < strlen(s); i++) { s2[i] = '*'; } s2[strlen(s)] = '\0'; strcat(s2, s); for(int i = strlen(s2); i < sizeof(s2); i++) { s2[i] = '*'; } s2[sizeof(s2)] = '\0'; cout < < s2 < < endl; return 0; }