Const
n = 40;
var
s,i,ind,k1,k2: integer;
mas: array[1..n] of integer;
begin
s := 0;
for i:=1 to n do s := s+ mas[i];
Writeln ('сумма элементов массива: ',s);
s := 1;
for i:=1 to n do s := s * mas[i];
Writeln ('произведение элементов массива: ',s);
s := 0;
for i:=1 to n do s := s + mas[i]*mas[i];
Writeln ('сумма квадратов элементов массива: ',s);
s := 0;
for i:=1 to 6 do s := s+ mas[i];
Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0;
repeat
Writeln('Введите К1: '); read(k1);
Writeln('Введите К2: '); read(k2);
if (k2>k1) then ind := 1;
until (ind=1);
s := 0;
for i:=k1 to k2 do s := s+ mas[i];
Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
end.
<span>745(8) -> x(10)
745(8) = 7*8^2+4*8^1+5*8^0 = 485(10)</span>
<span><span>745(8) = 485(10)</span></span>
var c, s, n, k : integer;
x,d :longint;
begin
writeln('введите x');
readln (x);
k := 0; //количество четных цифр в числе
while x > 0 do //пока х не равен нолю
begin
if (x mod 2) = 0 then k := k + 1; //проверяем четна ли последняя цифра числа
//+1 к кол-ву четных цифр
x := x div 10; //сокращаем на один знак и повторяем операцию
end;
if k >= 2 then
writeln('Да') //если кол-во четных цифр больше 2
//выводим 2, иначе не выводим ничего
end.
/* Вот написал сам, но то что пытался сделать ты не понял */
#include <iostream>
#include <cassert>
using namespace std;
void pie_price(int a, int b, int n)
{
assert((a >= 0) && (a <= 1000));
assert((b >= 0) && (b <= 99));
assert((n >= 1) && (n <= 1000));
double price = a * 1.0 + b / 100.0;
float res = price * n;
int kop = res * 100;
cout << "Rubles " << res << endl;
cout << "Kopeyks " << kop << endl;
}
int main()
{
int a, b, n;
cin >> a >> b >> n;
pie_price(a, b, n);
}