Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
Program pp;
var a,b:integer;
begin
read(a,b);
if (a>0) and (b>0) then begin
a:=sqr(a);
b:=sqr(b);
end;
if (a<0) and (b<0) then begin
a:=abs(a);
b:=abs(b);
end;
writeln(a,b);
end.
Массив какого размера ? и числа от скольких ? Для языка С подойдет?
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
Int main()
{
int arr[n]={} ; // arr - наш название массива с n елементами , в {} елементы массива.
int i , sum=0; // i нужна для того что бы прокручивать каждый елемент массива ,а Sum это сумма елементов
for (i=0;i<n;i++)
{
sum=sum+arr[i];
}
break
printf("сумма всех елементов массива кратных 7 = %d",sum);
getch();
return 0;
}
Легко видеть, что элементы второй строки имеют значение, равное удвоенному значению соответствующих элементов первой строки, увеличенному на единицу.
Поэтому, если в первой строке
1 2 3
то во второй
<em>3 5 7</em>
Var
i, n: integer;
x, rez: real;
begin
readln(x, n);
for i:=1 to n do
rez:=rez+sin(i*x)
write(rez);
end.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши ниже.