Ответ:
Объяснение:
program kalk;
var
a, b, c :integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Cумма трех чисел равна',a+b+c);
writeln('Разность трех чисел равна',a-b-c);
writeln('Произведение трех чисел равно',a*b*c);
end.
Есть вариант поставить вместо:
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
поставить так:
writeln('Введите 3 числа: ');
readln(a, b, c);
При x=182
a = x // 100a=1<span>b = x % 100 // 10
</span>b=8
c = x % 10c=2s1=11<span>При x=368
</span><span>a=3
</span><span>b=6
</span><span>c=8
</span><span>s2=17</span>
<span>При x=888</span>a=8b=8c=8s3=24
% - остаток от деления // результат деления без запятой
Например х=888
888%10=8 т.к 888/10 = 88.8, остаток = 8
888//100 = 8 т.к 888/100 = 8.88, целая часть(до запятой) = 8
1026 бит = 128,25 байт
1 кбайт = 1024 байт
8194 бит = 1024,25 байт
1028 байт8 кбайт = 8192 байт
8194 байт
<span>8388608б бит = 1048576 байт = 1024 кбайт = 1 Мбайт</span>
Program n1;
var a: array[1..10] of integer;
i: integer;
p: real;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(41)-20;
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write('произв. <10: ',p);
end.
Написали бы на каком языке программирования Вам нужно. Вот на java ^_^
<span>import java.io.BufferedReader<span>;
</span>import java.io.InputStreamReader<span>;
</span>
public class prog {
public static void main(String[] args) throws Exception{
BufferedReader reader = new BufferedReader(new InputStreamReader(System.in))<span>;
</span> while(true) {
int a = Integer.parseInt(reader.readLine())<span>;
</span> if(a%3==0){
System.out.println("Делится")<span>;
</span> }
else{
System.out.println("Не делится")<span>;
</span> }
}
}
}</span>
