Решить в паскале 1) c начала суток секунд. необходимо определить сколько полных минут с начала суток. 2) c клавиатуры вводится двузначное число. необходимо его "развернуть", т.е. поменять местами десятки и единицы, и сложить с исходным числом. например, если ввести число 25, то должна быть получена сумма 25 и 52 (25+52=77 3) стоимость товара n рублей m копеек. за него заплатили t рублей s копеек. нужно определить какая сдача будет получена. с клавиатуры вводится 4 числа: n и m, t и s. количество копеек должно быть меньше 100. в ответе на мониторе должны быть получены два числа: сдача в рублях и копейках. например, если товар стоит 5 руб. 85 копеек, а за него заплатили 8 руб. 10 копеек, то сдача будет 2 руб. 25 копеек. 4) с клавиатуры вводится целое число. необходимо вывести следующее за ним четное число. например, если ввести 7, то в ответе получим 8, если ввести 12, то в ответе должны получить 14. (нельзя использовать ветвления и циклы)
Ответы
1)
program numOp;
var a,b:longint;
begin
write('a='); readln(a);
write('b='); readln(b); writeln;
writeln('Среднее арифметическое: ',((a+b)/2):0:2);
writeln('Сумма: ',a+b);
writeln('Разность: ',a-b);
writeln('Произведение: ',a*b); readln;
end.
2)
program triangleInf;
var
kat1,kat2:longint;
gip,s:real;
begin
write('Катет1: '); readln(kat1);
write('Катет2: '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
writeln('Гипотенуза: ',gip:0:2);
writeln('Площадь: ',s:0:2); readln;
end.
program numOp;
var a,b:longint;
begin
write('a='); readln(a);
write('b='); readln(b); writeln;
writeln('Среднее арифметическое: ',((a+b)/2):0:2);
writeln('Сумма: ',a+b);
writeln('Разность: ',a-b);
writeln('Произведение: ',a*b); readln;
end.
2)
program triangleInf;
var
kat1,kat2:longint;
gip,s:real;
begin
write('Катет1: '); readln(kat1);
write('Катет2: '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
writeln('Гипотенуза: ',gip:0:2);
writeln('Площадь: ',s:0:2); readln;
end.
Var b,c,n,i,r:integer;
mass1:array[1..1000] of integer;
mass2:array[1..1000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
r:=1;
for i:=1 to n do
begin
mass1[i]:=random(19)-10;
if i mod 2=0 then begin
mass2[r]:=mass1[i];
r:=r+1;
end;
end;
for i:=1 to r do
if mass2[r]>0 then c:=c+1 else b:=b+1;
writeln('Исходный массив');
for i:=1 to n do
write(mass1[i]:4);
writeln;
for i:=1 to r do
write(mass2[i]:4);
writeln;
writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b);
end.
mass1:array[1..1000] of integer;
mass2:array[1..1000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
r:=1;
for i:=1 to n do
begin
mass1[i]:=random(19)-10;
if i mod 2=0 then begin
mass2[r]:=mass1[i];
r:=r+1;
end;
end;
for i:=1 to r do
if mass2[r]>0 then c:=c+1 else b:=b+1;
writeln('Исходный массив');
for i:=1 to n do
write(mass1[i]:4);
writeln;
for i:=1 to r do
write(mass2[i]:4);
writeln;
writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Какой ключ от игры GTA 5 в steam
Автор: dzo-dzo
По 10 пример полного и не полного ветвления
Автор: Станислав Роман994
Перевести число а10= 387 в двоичную, восьмеричную и шестнадцатеричную систему счисления
Автор: Sadikova Gavrikov
Определить значение переменной а после выполения следующего алгоритма a := 9 b := a mod 5 b := b*10 a := b div 5 - 3
Автор: Ахмедшина Трубников1249
var
n:longint;
begin
readln(n);
writeln(n div 60));
end.
2)
var
n,m,i,j:longint;
begin
readln(n);
m:=n mod 10 *10 + n div 10;
writeln(n,'+',m,'=',n+m);
end.
3)
var
a,b,c,d:longint;
begin
readln(a,b,c,d)
; dec(c,a);
dec(d,b);
if d<0 then
begin
dec(c);
d:=100 -abs(d);
end;
writeln(C,' рублей ',d,' копеек');
end.
4)
var
a:longint;
begin
readln(a);
if odd(a) then inc(a) else inc(a,2);
writeln(a);
end.
Если что то не работает напиши .