Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
1)
var n,k: integer;
begin
readln(n);
if (n>0) and (n<10) then k:=1
else if (n>9) and (n<100) then k:=2
else k:=3;
write(k);
end.
2)
var a,b,c: integer;
D,x1,x2: real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if(D>0) then begin
x1:=((-1)*b+sqrt(D))/(2*a);
x2:=((-1)*b-sqrt(D))/(2*a);
write(x1,' ',x2);
end else if (D=0) then begin
x1:=(-1)*b/(2*a);
write(x1);
end else write('Нет решений');
end.
3)
var x,y: integer;
begin
readln(x,y);
if(x=0) or (y=0) then write('точка лежит на координатной оси')
else begin
if(x>0) then begin
if(y>0) then write('I')
else write('IV');
end else
if(y>0) then write('II')
else write('III');
end;
end.
Пример:
Сколько яблок соберет Петя за n дней, если в день собирает по 5 яблок.
ПАСКАЛЬ:
var a,i,n:integer;
begin
readln(n);
for i:=1 to 5 do
a:=a+5;
write(a);
end.
JAVA:
import java.util.Scanner;
class Main{
public static void main(String args[]){
Scanner scn = new Scanner(System.in);
int a = scn.nextInt();
int b = 0;
for (int i = 0; i < a; i++){
b = b + 5;
}
System.out.println(b);
}
}
Program asd;
Const n=4;
m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=2+Random(8);
Write(A[i,j],' ');
end;
Writeln;
end;
Writeln; ii:=1;
For i:=1 to n do
begin
min:=1000;
for j:=1 to m do
begin
jj:=1;
If A[i,j]<=min then
begin
min:=A[i,j];
id[i]:=i;
jd[i]:=j;
end;
end;
B[i]:=min;
end;
For i:=1 to n do
begin
Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');
end;
<span>END.</span>
А что не понятного то? элементарно все.
я не понял какой именно номер надо по этому все разберу.
номер 2:
подставляй да и только
1-не подходит в конце код заканчивается на 1110,а как известно ни одного буквы заканчивающейся на 10 или 1110 или 110-нет, 2-не подходит, начало кода 1000.... а как известно ни одной буквы которая начинается на 10 нет, 3-подходит, код можно разделить по буквам 11-л 00-о 01-к 00-о 11-л 010-м 01-к, 4-не подходит код так же начинается на 10.
ответ:3
______
номер 3:
тоже все просто
тут достаточно знать как переводить из бит в байт, из байта в килобайт
а так же формулу для подсчета размера файла пусть v-это размер файла, u-скорость соединения, а t-время, тогда формула будет такая V=u*t
переведем минуту в секунды t=1мин=60сек
V=512 000бит/сек *60сек= 30 720 000бит(т.к нам нужны килобайты, переводим)=30 720 000бит/8/1024= 3750кб
ответ:3750
_________
номер 4
еще проще чем два предыдущих
В этом задании ответ (3)
объясню:
изначально подснежник.doc был: D:\2013\Весна\Подснежник.doc
потом создали подкаталог "Май", т.е говоря другими словами создали папку, и засунули туда Подснежник.doc и расположения стало таким: D:\2013\Весна\Май\Подснежник.doc , т.е чтобы узнать первоначальное местоположение мы делаем шаг назад