// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('Количество пятерок в числе равно ',
ReadInteger('n=').ToString.Where(c->c='5').Count)
end.
<u><em>Тестовое решение:</em></u>
n= 3456453
Количество пятерок в числе равно 2
100101101 вот это ответ на 301
Как вариант
#include <stdio.h>
int main(void)
{
int arr[5] = { 5, 9, 0, 3, 4 };
int sum = 0;
for (int i = 4; i > 0; --i) {
if (arr[i] == 0) {
for (int j = i; j < 5; ++j) {
sum += arr[j]; } break;
}
}
printf("%d", sum);
}
Var
p, s: real;
begin
readln(p);
s:=sqr(p/4);
writeln(s);
end.