// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadReal('a =');
Writeln('y = ', (a**2+10)/(sqrt(a**2 + 1)));
end.
<u>Пример:</u>
a = 1
y = 7.77817459305202
Да 7-6=1 так как у второго ёжика 1 яблоко
Формула для определения размера стипендии:
=ЕСЛИ(СУММ(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 рублей.
Алгоритм ол действия осындай 1)мен уйге келдым 2)кырдым 3)сабак ыстедым 4)уыйктадым. Алгоритм ол действия
Допустим слово ввели в программу так
read(s); где s - переменная типа string
тогда для s справедливо выражение
a:=length(s); где a - переменная типа integer
библиотечная функция Length() возвращает длину строки.
А длина строки в свою очередь и есть кол-во букв в слове
Итак код
//-----------
program one;
var s:string;
a:integer;
begin
Write('Введите слово:');
readln(s);
a:=length(s);
write('Кол-во букв в слове=',a);
end.