program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
var
a: real;
begin
read(a);
writeln((2*a*sin(3*a))/3.5);
end.
Unicode и uri это правельный ответ
<span>Когда человек слышит слова «модель» и «моделирование», перед его мысленным взором обычно пробегают картинки из его детства: уменьшенные копии автомобилей и самолетов, глобус, манекен, макеты зданий... Эти и многие другие вещи часто отражают какие-то общие свойства или функции настоящих предметов или объектов, только в более упрощенном виде. Используя такие модели, можно проще объяснить особенности оригинала. Информационная модель, примеры которой наглядно и понятно объясняют многие сложные для понимания процессы, также подчиняется основным требованиям моделирования. Цели Вышесказанное может привести нас к такому выводу: модели, являясь подобием реальных предметов или процессов, не должны отображать все свойства оригиналов, а только те характеристики, которые в определенной ситуации более востребованы для их применения. Нет необходимости отображать все многообразие свойств объекта — это может привести к усложнению модели и неудобству ее использования. Поэтому очень важно понимать, с какой целью была создана модель, какие ее параметры должны быть отражены в данном конкретном случае. При моделировании необходимо строго придерживаться такой логической цепочки: «объект — цель — модель»</span>
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.