На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.
2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('Ответ= ',a/2)
else
write('Было введено нечетное число!');
end.
5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. Первыми приспособлениями для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. Развиваясь, эти приспособления становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. Такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени.
Постепенно из простейших приспособлений для счёта рождались всё более и более сложные устройства: абак (счёты), логарифмическая линейка, арифмометр, компьютер. Несмотря на простоту ранних вычислительных устройств, опытный счетовод может получить результат при помощи простых счётов даже быстрее, чем нерасторопный владелец современного калькулятора. Естественно, производительность и скорость счёта современных вычислительных устройств уже давно превосходят возможности самого выдающегося расчётчика-человека.
Program pr1;
Uses Crt;
Var
x,m:real;
Begin
ClrScr;
write('Введите скорость скачивания:');
readln(x);
m:=round(0.3*60*x*0.125);
writeln('Потребуется ',m,' мегабайт');
readln;
end.
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Норм.
import math
a = float(input("a="))
b = float(input("b="))
c = float(input("c="))
D = (b*b)+(-1*(4*a*c))
if D < 0:
print("Нет корней")
elif D > 0:
sqrtD = math.sqrt(D)
print(-b)
print(-sqrtD)
x1 = (sqrtD-b) / (2*a)
x2 = (-b-sqrtD) / (2*a)
print("x1={0};x2={1}".format(x1,x2))
elif D == 0:
x = -b/4*a*c
print ("x=",x,sep='')
else:
print("Произошла ошибка")
