<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
Ну это же совсем просто:
#include <iostream>
using namespace std;
int main()
{
unsigned w;
cout <<"Введите стоимость 1кг конфет: ";
cin >>w;
if(w==0)
{
cout <<"Бесплатно конфеты не раздают!" <<endl;
return 1;
}
for(int i=1; i<=10; ++i)
cout <<i <<" кг конфет стоит " <<i*w <<endl;
return 0;
}
Ответ:
program abc;
var n,m,k,b:integer;
begin
readLn(n,m,k);
if k mod m <> 0 then b:=Trunc(k/m)+1 else b:=k div m;
if b mod 2<>0 then writeLn(b)
else if b>=n then writeLn(b-1);
if (b mod 2=0) and (b<>n) then writeLn(b+1);
end.
Объяснение:
A(3)=a+2q
a(13)=a+12q
a(23)=a+22q
оригинальная формула:
a(n)=a(1)+d(n-1)
Чтобы найти сумму надо:
S(n)=((a(1)+a(n))/2)*n