Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
#include <iostream>
#include <string>
using namespace std;
string arabicToRoman(unsigned &number)
{
const unsigned count = 13;unsigned arabic[count] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1
}, i, j;
string roman[count] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX",
"V", "IV", "I" }, result = "";
for (i = 0; i < count; i++) {
for (j = 0; j < number / arabic[i]; j++) {
result += roman[i];
}
number %= arabic[i];
}
return result;
}
int main()
{
unsigned uin = 0;
cin >> uin;
cout << arabicToRoman(uin);
system("pause");
return 0;
}
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.
Var
a, b, c, summ, d, den:real;
beginwrite('Введите кол-во км начальные: ');readln(a);
write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);
write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);
den:=0;
while a<c do begin d:=a/100*b; // узнаем, на сколько увеличивается растояние a:=a+d; den:=den+1; end; writeln(den);
<span>end.
Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)</span>
