Var str , time, thtime: integer;
Begin
str := 42;
thtime := 5;
While str>0 Do
Begin
str := str-1;
time := thtime+time;
thtime := thtime+2;
End;
write(time,' секунд');
End.
Program qq;
uses crt;
var p, d, z, i: integer; k:real;
begin
writeln('Введите период для отрастания травы в днях:');
readln(p);
writeln('Введите потребное количество загонов:');
readln(z);
for i:=1 to 5 do
begin
d:=i; // переменная дней изменяется, как дано в условии от 1 до 5 дней
k:=round(p/d+z); //процедура round округляет по всем правилам число загонов. Ведь весьма нелогично строить, например 3,3333 загона:)
writeln ('Для количества дней пастьбы - ', d,' требуется загонов - ',k);
end;
end.<span>
</span>
Program pr1;
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then
begin
case dn of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
4,6,9,11:writeln('В этом месяце 30 дней');
2:writeln('В этом месяце 28 дней');
end;
end
else writeln('Введите корректно');
readln;
end.
Допустим, Василий рыцарь. Но он сказал, что он лжец. Противоречие.
Допустим, Василий лжец. Тогда один из них рыцарь, а другой лжец (по словам Василия). Остается вариант, что Иван рыцарь. Противоречий нет.
<u>Ответ: Василий - лжец, а Иван - рыцарь</u>
var
s : string;
flag : boolean;
i, c : integer;
begin
readln (s);
c := 0; flag := false;
for i := 1 to length (s) do
begin
if flag then
begin
if s[i] = ' ' then flag := false;
end
else
if s[i] <> ' ' then
begin
inc (c);
flag := true;
end;
begin
end;
end;
writeln (c);
end.
