Предмет: Информатика,
автор: sergejakuba422
Помогите пожалуйста!!!!!!!
Приложения:
kriskamai2002:
программы написать чтоле?
ну на задачи ответить
интересно как же, например первое задание: написать программу ввода переменных/длин и вычисление объёма и площади?
я 1 номер сделал помогите с остальными
Ответы
Автор ответа:
1
2. var a,b,c,d,a2,m,n,s: integer;
begin
readln(a,b,c,d,a2);
s:=(a + формула);
writeln('переменная m равна,'s',*n);
writeln('переменная n равна m/,'s');
end.
3.var a,b,c,s:integer;
begin
readln(a,b,c);
s:=(a+b+c)/3;
writeln(s);
end.
4.var a,b,p:integer;
begin
readln(a,b);
p:=a*b;
writeln(p);
end.
8. var n,k,s:integer;
begin
readln(n,k);
s:=1200*n+3800*k;
writeln(s);
end.
writeln('Разность =',a-b-c);
тебе во сколько завтра сдавать? ужасно устала после пар, если не поздно будет, утром доделаю
Мне в школу в 9:40 информатика 12:40 будет урок
Спасибо что ты осталась и помогла мне я на тебя подписан
желаю много подписчиков
10.var S,R,r:real;
begin
// Задаём радиусы и находим площадь
readln(R);
readln(r);
S:=3,14*(sqr(R)-sqr(r));
writeln(S);
end.
9. var a,b,c: integer;
S: real;
begin
readln(a,b,c);
S:=((a+b)/2)*sqrt(sqr(c)-(sqr(a-b))/4);
writeln(S);
end.
11. const p1=60;
p2=15;
var S: integer;
begin
writeln('Скорость мотоциклиста равна 60 км/ч');
writeln('Скорость велосепидиста равна 15 км/ч')
S:=2*p1+2*p2; // умножаем на 2, т.к через 2 часа
writeln('расстояние равно',S);
end.
begin
// Задаём радиусы и находим площадь
readln(R);
readln(r);
S:=3,14*(sqr(R)-sqr(r));
writeln(S);
end.
9. var a,b,c: integer;
S: real;
begin
readln(a,b,c);
S:=((a+b)/2)*sqrt(sqr(c)-(sqr(a-b))/4);
writeln(S);
end.
11. const p1=60;
p2=15;
var S: integer;
begin
writeln('Скорость мотоциклиста равна 60 км/ч');
writeln('Скорость велосепидиста равна 15 км/ч')
S:=2*p1+2*p2; // умножаем на 2, т.к через 2 часа
writeln('расстояние равно',S);
end.
12. const p1=18;
p2=14;
var k1,k2: real;
begin
k1:=p1-p2; // рыбы поймал Петя
k2:=k1+p1; // поймали Вася и Петя вместе
writeln(k2);
end.
13. const p=900
var r1,r2: real;
begin
r1:=2*(p/6); //p/6 - зарплата за неделю, т.к 2+4=6 недель они работали оба. заработал первый
r2:=4*(p/6); //заработал второй
writeln('первый заработал ', r1);
writeln('второй заработал ', r2);
end.
p2=14;
var k1,k2: real;
begin
k1:=p1-p2; // рыбы поймал Петя
k2:=k1+p1; // поймали Вася и Петя вместе
writeln(k2);
end.
13. const p=900
var r1,r2: real;
begin
r1:=2*(p/6); //p/6 - зарплата за неделю, т.к 2+4=6 недель они работали оба. заработал первый
r2:=4*(p/6); //заработал второй
writeln('первый заработал ', r1);
writeln('второй заработал ', r2);
end.
В 14 и 15 также, как и в 10. объявляешь переменные через var, подставляешь подходящие формулы(в задаче даны) и радуйся. все программы на pascal
да я прям монстр спасибо))
если учителю понравиться всё, поставишь как "лучший ответ"? буду признательна))
Похожие вопросы
Предмет: Литература,
автор: tanja091998
Предмет: Математика,
автор: Fallen2Angel
Предмет: Қазақ тiлi,
автор: lelikbolikvol
Предмет: География,
автор: t89052021359p35cp2