Program z1;
var a:integer;
begin
writeln ('vvedite chislo');
readln(a);
if a mod 9=0 then
writeln ('da') else
writeln ('net');
<span>end.</span>
<em><u>Замечание:</u></em> данные в файле должны быть записаны по одному числу в строке.
const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'SuperFile.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Rewrite(f);
for i:=1 to n do Writeln(f,a[i],' ');
Close(f)
end.
блок схемы кстати нет, так что не обессудь
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
500
x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2
Program SummaKv;
var
n, i: integer;
begin
n := 0;
for i := 1 to 100 do
n := n + sqr(i);
writeln('Сумма квадратов первой сотни чисел = ', n);
end.
Здесь квадрат числа 100 так же включается в сумму.
#include <iostream>
#include <cstdlib>
#include <math.h>
#include <time.h>
using namespace std;
int main()
{
system("chcp 1251 > null");
srand(time(0));
int n = 30;
int z = 0;
double sum = 0;
double sr = 0;
cout << "Температура: \n";
for(int i = 0; i<n; i++){
z = rand()%11+5;
cout << "\n" << z;
sum = sum + z;
}
sr = sum/n;
cout << "\n\nСредняя температура за сентябрь: " << sr;
}
Оценивать так же можно кнопочкой "Лучший ответ" :З