Var i,p,k:integer;
begin
k:=0; p:=1; i:=2;
while p<200 do
begin
p:=p*i;
k:=k+1;
i:=i+2;
end;
writeln('k = ',k);
end.
Результат:
k = 4
Ну... а что сложного? Создаёшь структуру, заполняешь её, и обрабатываешь условие на входном M:
#include <stdio.h>
#include <conio.h>
#include <locale.h>
int main(void) {
setlocale(LC_ALL, "russian");
struct months {
char name[16];
int days;
};
struct months m[12] = {
{"Январь", 31},
{"Февраль", 29},
{"Март", 31},
{"Апрель", 30},
{"Май", 31},
{"Июнь", 30},
{"Июль", 31},
{"Август", 31},
{"Сентябрь", 30},
{"Октябрь", 31},
{"Ноябрь", 30},
{"Декабрь", 31}
};
int M;
printf("Введите номер месяца: ");
scanf("%d", &M);
if (M > 0 && M < 13) {
M--;
if (m[M].days == 29 || m[M].days == 30) {
printf("В месяце \"%s\" %d дней.", m[M].name, m[M].days);
} else {
printf("В месяце \"%s\" %d день.", m[M].name, m[M].days);
}
} else {
printf("Неизвестный месяц.");
}
getch();
return 0;
}
1. Истина(true)
2. Истина(true)
3. Ложь(false)
4. Ложь(false)
5. Ложь(false)
6. Истина(true)
7. Истина(true)
8. Истина(true)
1)
Begin
var (a,b,c,d):=ReadInteger4();
Writeln(((a+b)*c)/d);
end.
2)
Begin
var a,b:real;
Readln(a,b);
a:=a*b;
Readln(b);
a:=a+b;
Readln(b);
a:=a-b;
Writeln(a);
end.
Активное действие: Учитель работает. (Что-то делает - активное).
Пассивное действие: Кот спит на диване(Не делает никаких действий, просто спит - пассивное).