Посмотри, по формуле получилось.
а данные будут другие(не как в задании) потому, что дата=Сегодня,
т.е. после даты приема сотрудника +1год стажа.
32000000 килобайт в 32 гигабайтах
1.Var a,b:integer;
begin
writeln ('введи вес в кг и рост в см');
Readln (a,b);
if (b-100=a+5) or (b-100=a-5) then writeln ('вес в норме')
Else if (b-100>a+5) then writeln ('Вес выше нормы')
else writeln ('вес ниже нормы');
end.
2. Var a,b:integer;
s:real;
s1:char;
begin
writeln ('введи 1-ое число:');
readln (a);
writeln ('введи операцию +,-,/,*');
readln (s1);
writeln ('введи 2-ое число:');
readln (b);
write (a,s1,b);
if s1='*' then Writeln ('=',a*b) else
if s1='-' then writeln ('=',a-b) else
if s1='+' then writeln ('=',a+b) else
if (s1='/') and (b<>0) then begin
s:=a/b;
if a mod b=0 then writeln ('=',s:1:0)
else writeln ('=',s:5:4);
end
else writeln (' не может быть вычислено');
end.
3. Var x:integer;
y:real;
begin
writeln ('введи х из интервала (-10;15] ');
readln (x);
if (x>-10) and (x<=15) then
begin
if (x>-10) and (x<-4) then y:=sqr(x)
else if (x>=-4) and (x<=7) then y:=1/(2+x)
else y:=sqrt(x);
writeln (y:1:2);
end
else writeln ('х не идентифицирован');
end.
Нет, народ, я понимаю лень, все такое, но уж это спокойно можно загуглить и решается в онлайн калькуляторах.
Просто берем и переводим.
Берем число в 127 в 8 и переводим в нашу обычную. Это 87. прибавляем 1 и переводим 88 обратно в 10. Получаем 130.
Это если уж совсем думать лень.
А если подумать и провести аналогию с нашими числами?
у нас всего числа от 0 до 9.
т.е. после 19 идет 20
в восьмеричной от 0 до 7. т.е. после 17 идет 20
следовательно второй пункт будет 140.
Var s1,s2:string; x:char; i,p:integer;
begin
writeln('Введите предложение:');
readln(s1);
write('x = ');
readln(x);
for i:=length(s1) downto 1 do
if s1[i] in [',',';',':','.','!','?']
then delete(s1,i,1);
s1:=s1+' ';
s2:='';
p:=pos(' ',s1);
while p>0 do
begin
if s1[p-1]=x then s2:=s2+copy(s1,1,p-1)+',';
delete(s1,1,p);
p:=pos(' ',s1);
end;
if s2='' then writeln('В предложении нет искомых слов')
else
begin
delete(s2,length(s2),1);
writeln(s2);
end;
end.
Пример:
Введите предложение:Дано предложение. Посчитать количество слов, заканчивающихся на заданную букву, и записать эти слова в другую строку через запятую.
x = ю
заданную,другую,запятую