Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
Если интересует вариант поинтереснее, могу предложить код, который подойдет при наличии компилятора, поддерживающий стандарт C++11(для std::array)
#include <iostream>
#include <algorithm>
#include <array>
#include <iterator>
int main()
{
std::array<int, 25> arr;
std::for_each(arr.begin(), arr.end(), [](int& val)
{
val = rand() % 100 + 1;
});
int sum = arr[0] + arr[19];
for(auto& i : arr)
sum += 3*i;
std::copy(arr.begin(), arr.end(),
std::ostream_iterator<int>(std::cout, " "));
std::cout << std::endl << sum;
return 0;
}
1)
int f(int x,int p, int y)
{int k=0;
while(x<y)
{
x=+p*x/100;
k++;
}
return k;
}
2)
int f(int A)
{int x=1, y=1, n=2;
while(x<A || y<A)
{
if(x<y)
x=+y;
else
y=+x;
}
n++;
}
if(A=y || A=x )
return n;
else
return -1;
}
Забыл еще объявить массив х, нужно написать array of integer.
В Python есть только for и while.
Ответ: b)