program tof;
var x,c: integer;
begin
writeln('Enter your number');
readln(x);
if((x>999) and (x<10000)) then
writeln('true')
else
writeln('false');
end.
var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.
Var
i, c,t:integer;
A: array[0..9] of integer;
Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;
c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
if A[i]<A[0]
then
Begin
c:=c + 1;
t:=A[i];
A[i]:= A[0];
A[0]:= t;
end;
writeln('c= ', c);
readln;
<span>end.
Ответ: c=4
</span>
Написал на c++ т,к синтаксис шарпа не знаю, можешь переделать под себя.
#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int summa = 0;
int h;
int i = 1;
cout << "Введите h" << endl;
cin >> h;
for(i;summa<h;)
{
summa += i;
i++;
}
cout <<"Сумма= "<< summa << endl <<"Последнее слагаемое = "<< i - 1 << endl;
}
143
48 div 5 = 9 48 mod 5 = 3
9 div 5 = 1 9 mod 5 = 4
1 div 5 = 0 1 mod 5 = 1
Записываем результат mod в обратном порядке = 143