Решите Запишите значение переменной a, полученное в результате работы следующей программы. var a, b: real; begin a := 6; b := 2; b := b+ 2 * a; a := a / 2 + 3 * b; writeln (a); end. 2. Запишите значение переменной s, полученное в результате работы следующей программы. Var s,k: integer; Begin s := 3; for k :=2 to 5 do s := s + 4; writeln(s); End. 3. Определите значение переменной b после выполнения алгоритма, записанного в виде программы или в виде фрагмента блок-схемы: Примечание: знаком := обозначена операция присваивания. var a, b: integer; a:=2; b:=0; while b<8 do begin b:=b+a; a:=a+2; end; write (a); end. b<8 нет выв. a да b:=b+a a:=a+2 a:=2 b:=0 4. Составьте программу, которая определяет профиль для дальнейшего обучения. Программа запрашивает за экзамен по информатике, математике и физике. Если средний не менее 4, то должен выводиться комментарий «Информационный», в противном случае- общеобразовательный
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in);
String string = in.nextLine(); char chars[] = new char[4];
chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
for(int sChar = 0; sChar<string.length(); sChar++)
if(string.charAt(sChar)==chars[0])chars[1]++;
else if(string.charAt(sChar)==chars[2])chars[3]++;
System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
}
}
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.