Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.
Ответ:::::::::::::::::::::::::
1+2+3-4+5-6=1
Import java.util.Scanner;
public class Task24318284 {
public static void main(String[] args) {
Scanner in = new Scanner(System.in);
System.out.print("Введите трехзначное число: ");
int num = in.nextInt();
System.out.println("Первая цифра : " + num/100);
}
}
Переведем все в биты.
А)8000 бит
Б)1001 байт=8008 бит
В)1кбайт=1024байта=8192 бит
Г)1мбайте-1024 кбайта,1кбайте-1024 байта,в 1 байте-8 бит,след.1мбайт=1024*1024*8=8388608 бит
8388608*0,001=8388,608 бит
След,ответ Г).
Const n=5;
var c,a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do c[i]:=random(100);
for i:=1 to n do write(c[i]:4);
writeln;
for i:=1 to n doif (c[i] mod 2)=0 then a[i]:=c[i] {если элемент четный, то A(I)=C(I)2 возможно здесь лишняя 2,если нет,тогда допишите сами правильно}
else a[i]:=c[i]*2;for i:=1 to n do write(a[i]:4);
end.