Держи ответ. формулы для пепевода 8=4:2:1. 16=8:4:2:1
Код ужасно кривой, но рабочий (надеюсь, принцип понятен):
1. Бензин
type
Benzin=class
public
money:double;
m:integer;
end;
var
b:Benzin;
begin
b:=new Benzin;
b.m:=0;
b.money:=20;
while b.money<22.0 do
begin
b.money:=b.money*1.02;
b.m:=b.m+1;
writeln('Сейчас бензин стоит: ',b.money);
writeln('Сейчас месяц прошел: ',b.m);
end;
end.
2. Вклад
type
biznes=class
public
money:double;
m:integer;
time:integer;
end;
var
b:biznes;
begin
b:=new biznes;
writeln('Напишите сумму рублей: ');
read(b.money);
writeln('Напишите кол-во месяцев: ');
read(b.m);
b.time:=0;
while b.time<b.m do
begin
b.money:=b.money*1.03;
b.time:=b.time+1;
writeln('Сейчас сумма: ',b.money);
writeln('Прошел месяц: ',b.time);
end;
end.
3. Тренировки
type
sport=class
public
first:double;
day:integer;
first2:double;
first3:double;
first4:double;
first5:double;
first6:double;
first7:double;
answer:double;
end;
var
s:sport;
begin
s:=new sport;
s.first:=5;
s.day:=1;
while s.day=1 do
begin
s.first2:=s.first*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first2);
writeln('День: ',s.day);
end;
while s.day=2 do
begin
s.first3:=s.first2*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first3);
writeln('День: ',s.day);
end;
while s.day=3 do
begin
s.first4:=s.first3*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first4);
writeln('День: ',s.day);
end;
while s.day=4 do
begin
s.first5:=s.first4*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first5);
writeln('День: ',s.day);
end;
while s.day=5 do
begin
s.first6:=s.first5*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first6);
writeln('День: ',s.day);
end;
while s.day=6 do
begin
s.first7:=s.first6*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first7);
writeln('День: ',s.day);
end;
while s.day=7 do
begin
s.answer:=s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7;
s.day:=s.day+1;
writeln('Ответ: ',s.answer);
end;
end.
Uses crt;
type
massiv = array [1..100] of integer;
var
mass : massiv;
n , i : integer;
begin
clrscr; // очищаем экран
randomize; // включаем генератор случайных чисел.
write('Введите кол-во элементов массива : '); readln(n);
for i:=1 to n do
begin
mass[i] := random(58) - 23;
write(mass[i], ' | ');
end;
readln;
end.
Program primer;
var a,b:integher;
begin
writeln('vvedite a,b:=');
readln(a,b);
if (a<0) and (b<0) then writelln('yes') else writeln('no');
readln;
end
Данный программный код написан на С++
#include <iostream> // подключаем библиотеку для работы ввода / вывода
#include <string> // подключаем библиотеку для роботы со строками
int main() // основная ф-ция программы, в которой будут выполняться все действия
{
int a = 0; // объявляем переменную для числа
std::cout << "Enter the number: "; // выводим пользователю информацию, чтоб он ввёл число
std::cin >> a; // принимаем введённое число
std::string s = std::to_string(a); // объявляем переменную строку и сразу присваиваем ей наше число преобразованное в строку
if (s[0] == s[1] == s[2]) // проверяем если все три символа равны
{
std::cout << "Same\n"; // если равны выводим слово "Одинаковые"
}
else
{
std::cout << "Different\n"; // выводим слово разные
}
system("pause"); // останавливаем консоль дор нажатия любой клавиши
return 0; // завершаем прогу с кодом 0 (без ошибок)
}
Мы принимаем число, дальше конвертируем его в текст и сравниваем все цифры