Все в паскале: 1. Формула пути S=V*t,V=S/t; Значит программа имеет вид var s, v, t:integer; begin writeln('Введите путь и время'); readln(s, t); v:=s/t writeln('ответ: V=', v); end. Все остальное по анологии
Во 2 и 3 y:=/формула в условии/ и выводишь у В 4, воспользуйся формулой площади S=a*b (a и b - ширина с длинной) В 5 a=P-2*b (а основание, b бок сторона) В 7 o=(a+b+c)/3 (о - ср., а, b, c - число в классах) 8. var a, b:integer; begin writeln('Введите числа'); readln(a, b); writeln('Сумма=', a+b); writeln('Разность=', a-b); end. В 9 как 8, только вместо + и - надо * И /
uses crt; var c:char; begin clrscr; write('Введите символ '); readln(c); case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c)); '+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.
1. Формула пути S=V*t,V=S/t;
Значит программа имеет вид
var s, v, t:integer;
begin
writeln('Введите путь и время');
readln(s, t);
v:=s/t
writeln('ответ: V=', v);
end.
Все остальное по анологии
Во 2 и 3 y:=/формула в условии/ и выводишь у
В 4, воспользуйся формулой площади S=a*b (a и b - ширина с длинной)
В 5 a=P-2*b (а основание, b бок сторона)
В 7 o=(a+b+c)/3 (о - ср., а, b, c - число в классах)
8.
var a, b:integer;
begin
writeln('Введите числа');
readln(a, b);
writeln('Сумма=', a+b);
writeln('Разность=', a-b);
end.
В 9 как 8, только вместо + и - надо * И /