Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>
Работает "из коробки", ничего делать не нужно.
/* C++ 11 */
#include <iostream>
using namespace std;
int main()
{
char answer;
const char correct = 'b';
cout << "Введите ваш ответ (a, b, c): ";
cin >> answer;
switch (answer) {
case correct:
cout << "Правильно!" << endl;
break;
default:
cout << "Неправильно!" << endl;
break;
}
}
#include <iostream>
#include <vector>
#include <iterator>
#include <algorithm>
#include <cmath>
int main()
{
int
sum(0), count(0),
A, B;
std::cin >> A >> B;
std::vector<int> vec;
std::copy(std::istream_iterator<int>(std::cin), std::istream_iterator<int>(), std::back_inserter(vec));
for(auto it = vec.begin(); it != vec.end(); it++)
{
if(A < *it && B > *it && (std::distance(vec.begin(), it) % 4) == 0)
sum += pow(*it, 2);
}
std::cout << "Количество нулей: " << std::count(vec.begin(), vec.end(), 0) << std::endl;
std::cout << "Сумма квадратов чисел: " << sum << std::endl;
}
1)
Program n1;
var x: real;
begin
readln(x);
if(x mod 2=0) then do writeln('четное);
else
writeln('нечетное');
end.
2)
Program n2;
var x, y: real;
begin
if(x mod 2=0) or (y mod 2=0) then do writeln('да');
else
writeln('нет');
end.
3)
Program n3;
var x: real;
begin
readln(x);
if(x<8) and (x>-8) then do writeln('нет');
else
writeln('да');
end.