1.Клавиатура это графическая информация? (Нет)
2.Самая главная часть компьютера это колонка? (Нет)
3.Информатика изучает компьютеры? (Нет)
4.С помощью зрения человек <span>получает наибольшее количество информации? (Да)
5.В кодирование входят ребусы? (Да)
</span>
Program zd;
const
t=0,5;
var
a,b,c:byte;
r,s:real;
begin
writeln('Введите сторону А');
readln(a);
writeln('Введите сторону В');
readln(b);
writeln('Введите угол С (в градусах)');
readln(c);
r:=c*pi/180; {Перевод из градусов в радианы}
s:=t*a*b*sin(r); {Формула для вычисления}
writeln('Результат = ',s);
readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)}
end.
Вроде бы так, попробуй запустить проверить
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords.Reverse; s.Println
end.
В последней задаче понадобятся переводные коэффициенты.
1 берковец=10 пудов=400 фунтов=38400 золотников.
Отсюда:
1 фунт = 38400/400 = 96 золотников
1 пуд = 400/10 = 40 фунтов
1 берковец = 10 пудов
<u>№1</u>
var
n:integer;
begin
Write('Введите двухзначное число: '); Read(n);
n:=Abs(n); { убираем минус, если он есть }
Writeln('Среднее арифметическое цифр числа: ',
(n div 10 + n mod 10)/2)
end.
<u>Пример</u>
Введите двухзначное число: 43
Среднее арифметическое цифр числа: 3.5
<u>№2</u>
var
n:integer;
begin
Write('Введите двухзначное число: '); Read(n);
n:=Abs(n); { убираем минус, если он есть }
Writeln('Разность количества десятков и единиц равна ',n div 10 - n mod 10)
end.
<u>Пример</u>
Введите двухзначное число: 38
Разность количества десятков и единиц равна -5
<u>№3</u>
var
a:real;
begin
Write('Площадь, ар: '); Read(a);
Writeln('Полных кв.км: ',Trunc(a/10000))
end.
<u>Пример</u>
Площадь, ар: 252123234
Полных кв.км: 25212
<u>№4</u>
const
f=96; { фунт }
p=40; { пуд }
b=10; { берковец }
var
z:longint;
kb,kp,kf:integer;
begin
Write('Введите вес в золотниках: '); Read(z);
kf:=z div 96;
z:=z mod 96;
kp:=kf div 40;
kf:=kf mod 40;
kb:=kp div 10;
kp:=kp mod 10;
Writeln('Это составит ',kb,' берковцев, ',kp,' пудов, ',
kf,' фунтов, ',z,' золотников')
end.
<u>Пример</u>
Введите вес в золотниках: 374252
Это составит 9 берковцев, 7 пудов, 18 фунтов, 44 золотников
#include <stdio.h>
#include <math.h>
int main()
{
float a, b, c, gamma;
printf("Введите a, b, gamma:\n");
scanf("%f",&a);
scanf("%f",&b);
scanf("%f",&gamma);
c = sqrt(a*a+b*b-2*a*b*cos(gamma*3.14159265/180));
printf("c = %f",c);
return 0;
}
Пример:
<span>Введите a, b, gamma:
3
4
90
c = 5.000000</span>