program dva_chisla;
var
a,b,s,p,v:real;
Begin
Writeln('Введите два числа');
Readln(a,b);
s:=a+b;
writeln('Сумма чисел ',a,' + ',b,' = ',s);
v:=a-b;
writeln('Разность чисел ',a,' - ',b,' = ',v);
p:=a*b;
writeln('Произведения чисел ',a,' * ',b,' = ',p);
End.
Один символ в двоичной системе равен 1 биту, здесь 7 символов, следовательно 7 бит.
1. ((x-1)/sqr(y)-1/x)/(1/y+1/(x+1))
2.
program Schet;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if (x+100>0) then begin
y:=(sqr(x)+4)/sqrt(x+100);
writeln('Y = ',y) end
else writeln('При данном значении X выражение не может быть рассчитано!')
end.
3.
program Func;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if x<=0 then y:=4*x else
y:=(sqr(x)+1)/2;
writeln('Y = ',y)
end.
4.
program interval;
var s,x:real;
begin
x:=0;
repeat
s:=2*x*x+1;
writeln('при X = ',x:5:2,' S = ',s:6:2);
x:=x+0.5
until x>10
end.
Все программы написаны на языке ABC Pascal и проверены на функциональность
1)64*34=2176(симв.) -на одной странице
2)2176*9=19584(м) -столько места надо выделить
#include <iostream>using namespace std; int main(){ setlocale(LC_ALL, "Russian"); int number=2, number_of_seats=20, full_number, all_people, number_of_standing=10, rashod_all_fuel, number_of_seats__procent, road, number_of_seats_procent, number_of_standing_procent, full_procent, pribl, doroga, coust_fuel, rashod_fuel; cout<<"Введи кількість поїздок"<<endl; cin>>road; full_number=number_of_seats+number_of_standing; full_procent=road*(full_number*0.5); number_of_seats_procent=road*(full_number*0.3); number_of_seats__procent=number_of_seats_procent*0.5; cout<<"Введи проїханий маршут в км"<<endl; cin>>doroga; cout<<"Вартість пального"<<endl; cin>>coust_fuel; cout<<"Расход бензина на 100 км"<<endl; cin>>rashod_fuel; rashod_all_fuel=(road*doroga)*(coust_fuel*rashod_fuel); all_people=number*(full_procent+number_of_seats_procent-number_of_seats__procent); cout<<"Вигода = "<<all_people<<" гривень"<<endl; cout<<"Вигода = "<<all_people-rashod_all_fuel<<" гривень"<<endl; return 0;}
