1.С клавиатуры вводится число. Увеличить в три раза, если оно больше нуля. Уменьшить на 4, если оно меньше нуля. 2.С клавиатуры вводятся два числа. Определить и вывести на экран наибольшее.
Сложение двух чисел тривиально — достаточно поставить 1 между ними и стереть крайний правый символ у Q. Программа вычитания состоит из последовательного затирания крайних левых меток у Q и правых у P:
1. 0 - стираем левый символ у Q 2. → 3. ? 5, 4 4. Stop - стоп если затерли Q=0 5. ← 6. ? 7, 5 - цикл поиска P 7. 0 - стираем правый символ у P 8. → 9. ? 1, 8 - ищем Q
Отметим, что номер команды перехода не указывается, если переход происходит на следующую по порядку строку (для наглядности текста) . В 6-ой строке возможно зацикливание, если Q > P (вы можете добавить проверку сами)
только вам нужно сдвинуться в начало строки и учесть пустую клетку-т. е. еще один проскок каретки
var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.
Задание №2
var a,d,n:integer; begin writeln('Введите первый член, знаменатель, число членов'); read(a,d,n); writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d)); end.
Задание №3
var m,n:integer; begin writeln('Введите m и n'); read(m,n); if m=n then begin m:=0; n:=0; end; if (m>n) then n:=m else if n>m then m:=n; end.
Задание №4
var a,b,c:integer; begin writeln('Введите стороны a,b,c'); read(a,b,c); if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') else writeln('Треугольник неравнобедренный'); end.
Задание №5
var a,b,c:integer; begin a:=0; c:=0; repeat writeln('Введите число'); read(b); if b<0 then a:=a+1; c:=c+1; until c=3; writeln('Количество отрицательных = ',a); end.
Задание №6
var a,c:integer; b:real; begin writeln('Введите количество часов'); read(a); c:=a div 3; b:=power(2, c); writeln(b); end.
Задание №7
const n=10; var a:array [1..10] of integer; i,k,s:integer; begin writeln('Введите k'); read(k); writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); if a[i] mod k =0 then s:=s+a[i]; end; writeln(s); end.
Если что это джава.
1) Scanner num = new Scanner(System.in);
int first;
System.out.print("Введите число: ");
first = num.nextInt();
if(first > 0) {
first = first * 3;
System.out.println(first);
}
else if(first < 0) {
first = first / 4 ;
System.out.println(first);
}
Это первое
2)
Scanner num = new Scanner(System.in);
int first, second;
System.out.print("Введите первое число: ");
first = num.nextInt();
System.out.print("Введите второе число: ");
second = num.nextInt();
if(first > second) {
System.out.println(first);
}
else if(first==second) {
}
else {
System.out.println(second);
}
Это второе
А да и не забудь импортировать java.util.Scanner;
без этого работать не будет
Удачи)
Объяснение: