Пример на продукте - бананы
program v1;
var m,n,sum,t:integer;
st1:string[10];
begin
sum:=0; t:=0;
writeln('Здравствуйте');
writeln('Банан красного цвета стоит 2500, банан синего цвета стоит 3000, банан черного цвета стоит 3700');
writeln('Сколько купите бананов '); readln(n);
writeln('Введите цвет бананов '); readln(st1);
if (st1='Красного') or (st1='красного') or (st1='Красный') or (st1='красный') then sum:=3000*n;
if (st1='Синего') or (st1='синего') or (st1='Синий') or (st1='синий') or (st1='Синей') or (st1='синей') then sum:=2500*n;
if (st1='Черного') or (st1='черного') or (st1='Чёрного') or (st1='чёрного') or (st1='Черный') or (st1='черный') or (st1='чёрный') or (st1='Чёрный') then sum:=3700*n;
writeln('Сумма покупки ', sum);
writeln('Введите сумму'); readln(m);
t:=m-sum;
writeln('Возьмите сдачу ',t);
writeln('Всего доброго, приходите еще');
end.
#include <iostream>
int main() {
const int SIZE = 10;
bool isSence = false;
int sum = 0;
int count = 0;
int arr[SIZE];
for (int i = 0; i < SIZE; i++)
{
arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10
std::cout << arr[i] << "\t"; // выводим массив в консоль
if (arr[i] >= 0)
isSence = true;
}
for (int i = 0; i < SIZE; i++)
{
if ((isSence) && (arr[i] > 0))
sum += arr[i]; //sum = sum + arr[i];
count++;
}
if (isSence)
std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов
else
std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;
return 0;
}
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadInteger('A=');
var b:=BigInteger(a);
for var i:=1 to 10 do begin
Writeln(a,' в степени ',i:2,'=',b);
b*=a
end;
end.
Примеры
A= 5
5 в степени 1=5
5 в степени 2=25
5 в степени 3=125
5 в степени 4=625
5 в степени 5=3125
5 в степени 6=15625
5 в степени 7=78125
5 в степени 8=390625
5 в степени 9=1953125
5 в степени 10=9765625
A= 3419
3419 в степени 1=3419
3419 в степени 2=11689561
3419 в степени 3=39966609059
3419 в степени 4=136645836372721
3419 в степени 5=467192114558333099
3419 в степени 6=1597329839674940865481
3419 в степени 7=5461270721848622819079539
3419 в степени 8=18672084598000441418432943841
3419 в степени 9=63839857240563509209622234992379
3419 в степени 10=218268471905486637987698421438943801