//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2();
(a,b):=(a/2,b+30);
write(a,' ',b);
end.
Ответ:для всех можно
Объяснение: ну в математике для квадратов или формул, в географии для расчета изменения давления, температуры и других погодных факторов, на трудовом обучении для экономических расчетов, на литературе для образа персонажей, их характеристики и сравнения действий
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
Формула для определения размера стипендии:
=ЕСЛИ(СУММ(D6:G6)=20;ЕСЛИ(I6="староста";1100;1000);ЕСЛИ(СУММ(ЕСЛИ(D6>3;1;0);ЕСЛИ(E6>3;1;0);ЕСЛИ(F6>3;1;0);ЕСЛИ(G6>3;1;0);)>=4;ЕСЛИ(I6="староста";850;750);0))
Описание:
1) первое вложение: проверка условия отличник ли, для истины сумма баллов должна быть 20. Если истина, то проверяется староста или нет и ставится 1100 рублей, или 1000 рублей.
2) второе вложение: если первое ложь, то идет в работу оно. При этом студент может быть не отличником, но с базовой стипендией. Для этого проверим, есть ли у его тройки: если число в ячейке больше 3, вернуть 1, и добавить к общей сумме, взять следующую ячейку. Если в ней число больше трех, то добавить к сумме и так включительно до 4-й. Если после этих операций, Сумма получилась больше 4х(во всех ячейках больше 3 оценка, если хотя бы в одной меньше, то выйдет меньше 4 сумма) то даем стипендию студенту, но проверяем, староста ли он. И выдаем соответственно 750 или 850. Проверка на старосту, делается с помощью проверки ячейки в последнем столбце. Если там есть запись староста, то к стипендии +100 рублей.